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Dieser Bericht soll vor allem den Computerfreaks helfen, die in 
absehbarer Zeit von ihren „kleinen’’ Computern in höhere Regionen auf- 
steigen wollen. Denen aber ein Atari eine Spur zu unausgereift und 
ein MS DOS Computer zu professionell ist. Und die mit dem Gedanken 

spielen, einen C 128 zu kaufen. 


Der C128 nimmt auf dem heiß um- 
kämpften Computermarkt eine Art 
Zwitterstellung ein. Auf der einen 
Seite präsentiert er sich, was seine 
Betriebsarten angeht, sehr chamä- 
leonartig, auf der anderen Seite 
hält er an der fast veralteten 8- 
Bit-Technik fest. Nur sind diese Ei- 
genschaften, zusammen mit guter 
Software und einem durchdachten 
Vertriebskonzept, genau der Stoff, 
aus dem ein erfolgreicher Compu- 
ter gemacht wird. 

Im 64’er Modus kann der C128 jede 
beliebige Software ‚fahren‘. Egal 
ob Spiel oder Anwenderprogramm, 
99,5% der vorhandenen Software ist 
auch auf dem C128 lauffähig. Ein- 
zig bei einigen Kopierprogrammen 
kann es Schwierigkeiten geben. 

Für den potentiellen Käufer bedeu- 
tet dies natürlich, daß er sofort auf 
diese riesige Menge an Software zu- 
rückgreifen kann, solange bis gute 
und leistungsfähige Programme im 
128’er Modus verfügbar sind. Er- 


staunlich ist allerdings die Tatsache, 


daß beispielsweise in den USA im 
letzten Quartal ’85 mehr Program- 
me für den guten alten 64’er ent- 
wickelt worden sind, als für den 
C128. Für Commodores Marketing- 
und Werbeexperten bedeutete dies, 
daß sie den C128 als ‚‚Ready-to- 
Run“-Maschine vorstellen konnten, 
wobei die Tatsache geschickt ver- 
schwiegen wurde (und wird), daß 
es für den 128’er Modus noch fast 
keine Software gibt. Nebenbei be- 
merkt, bei Ataris Flagschiffen der 
ST-Serie regt man sich fürchterlich 
auf, daß es kaum Software gibt 
und verteufelt den Programmierer, 
der es gewagt hat, einen CP/M- 
Emulator zu schreiben. Wo ist da 
der Unterschied zur 64’er Emula- 
tion auf dem C128...?? 

Die Kehrseiten des 64’er Modus’ 
sind schnell aufgezählt: 40 Zeichen- 
Display, geringe Arbeitsgeschwin- 
digkeit und eine gähnend langsame 


Floppy. Bei genauerer Untersu- 
chung des Floppy-Betriebssystems 
stellt sich dann auch heraus, daß sie 
(die Floppy) 90% der Zeit damit 
verbringt, sich und den Computer 
davon zu überzeugen, daß sie wirk- 
lich das einzige angeschlossene Lauf- 
werk ist. Daß die Mechanik wesent- 
lich schnellere Geschwindigkeiten 
verträgt, stellt sich dann heraus, 
wenn man entweder entsprechende 
Programme lädt (z.B. enthält das 
Profi-Pascal von Data Becker ein ei- 
genes Betriebssystem, das die Floppy 
ca. 4mal schneller macht), oder sich 
bei anderen Computerherstellern um- 
schaut, die die gleichen Laufwerke 
verwenden (Osborne). 

Die positiven Seiten?? Nun ja, der 
C64 ist immer noch der Spielcom- 
puter, der Einsteigercomputer und 
der Lerncomputer schlechthin. 

Viele von uns haben mit ihm ge- 
lernt und sind dann aufgestiegen. 


CP/M MODUS? ABER BITTE 
NUR MIT DOPPELFLOPPY!! 


Über die Möglichkeiten des CP/M 
Betriebssystems sind an anderer 
Stelle schon genügend Worte gefal- 
len, beschränken wir uns also im 
wesentlichen auf die aktuelle Situa- 
tion auf dem Softwaremarkt. 
Glücklicherweise haben die verant- 
wortlichen Leute in den Software- 
häusern erkannt, welcher Personen- 
kreis mit dem 128’er arbeitet. So ist 
es denn auch zu begrüßen, daß die 
Standardpakete WordStar, dBase II 
und Multiplan zu einem sehr attrak- 
tiven Preis angeboten werden. Sie 
alle laufen unter CP/M und sind 
schon seit Jahren bewährt. 

Salopp würde man sagen: Und da 
verließen sie ihn. Im Moment scheu- 
en sich nämlich die Softwarehäuser, 
spezielle Programme für den C128 
zu entwickeln. Mit fadenscheinigen 
Begründungen, wie wir meinen. Da 
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heißt es unter anderem, daß die 
8-Bit-Technik schon längst überholt 
sei, daß man die Zukunft sowieso 
nur mit 32-Bit erleben könne und 
außerdem stünden ja noch die aber- 
tausenden Public Domain Program- 
me zur Verfügung. Leider übersehen 
die Damen und Herren Pressespre- 


cher eine Tatsache, nämlich, daß 95% 


der Public Domain Programme aus 
den USA stammen. Der Nachteil ist 
leider nicht sofort ersichtlich: Die 
Programmierung ist natürlich voll 
auf amerikanische Verhältnisse ab- 
gestimmt. Erwarten Sie also nicht, 
daß ein Programmpaket sofort zur 
Zufriedenheit läuft. Im ungünstig- 
sten Fall müssen Sie die Program- 
me komplett umschreiben. 

Es bleibt also abzuwarten, ob sich 
die Softwarefirmen nicht doch 
noch umstimmen lassen. Spätestens 
wenn der C128 die Verkaufszahlen 
seines kleinen Bruders erreicht, 
wird man über weitere CP/M Soft- 
ware nachdenken müssen. 

Aber auch mit der bereits vorhan- 
denen Software mufs man einige 
Nachteile in Kauf nehmen. Um 
wirklich effizient arbeiten zu kön- 
nen, sind zwei Laufwerke absolut 
notwendig. Da CP/M ein Disketten- 
orientiertes Betriebssystem ist, wer- 
den bestimmte Teile des Systems 
erst bei Bedarf nachgeladen. Dies 
hat den Vorteil, daß man einen 
größeren Speicher zur Verfügung 
hat. Stellen Sie sich die Arbeit 
beim Kopieren einer komplettten 
dBase Datei vor: Systemdiskette 
rein, Datendiskette raus, System- 
diskette raus, Datendiskette rein 
usw. Da wird man bei einem Einzel- 
laufwerk wahrlich zum Diskjockey. 
So sehr momentan die Nachteile 
überwiegen, eines darf nicht ver- 
schwiegen werden, nämlich daß es 
unter CP/M sehr viele gute Pro- 
grammiersprachen gibt, denen es 
egal ist, ob sie nun auf einem C128, 
einem Osborne oder irgend einem 
anderen CP/M Rechner gefahren 
werden. Interessanterweise ist ein 
Großteil davon in den Public Do- 
main Bibiliotheken vorhanden. 
Wer also unbedingt mit Fortran IV, 
COBOL oder einer anderen Pro- 
grammiersprache arbeiten will, der 
ist mit den CP/M Programmen 
bestens bedient. 


ZAHLENSPIELEREI: BASIC 7.0 


Mit der Versionsnummer hat man 
bei Commodore eine kleine Zahlen- 
spielerei veranstaltet. Man könnte 
sofort assoziieren, daß die Version 
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7.0 doppelt so gut und doppelt so 
viel Umfang hat, wie beispielsweise 
das Basic 3.5 des unseligen Plus/4; 
wir finden, Version 5.0 hätte auch 
gelangt. Seit den Zeiten des ersten 
weiter verbreiteten Homecompu- 
ters von Commodore, dem legen- 
dären PET‘, ist das Basic in ei- 
nem ROM untergebracht. Nach 
dem Einschalten kann man sofort 
mit dem Programmieren loslegen. 
Was aber, wenn man des unkom- 
fortablen Basics überdrüssig gewor- 
den ist? Na ganz einfach, Rechner 
‘resetten‘, Pascal laden und schon 
hat man nach einer Minute Warte- 
zeit Pascal drin und 40kB Speicher- 
platz weg. Wem Pascal zu hoch ist, 
der kann’s ja mal in COMAL ver- 


suchen. Wie? Na ganz einfach, 
Rechner ‘resetten‘, COMAL laden 
und schon hat man nach einer Mi- 
nute Wartezeit COMAL drin und 
45kB Speicher weg. Merken Sie 
was? Mir stellt sich hier die Frage, 
ob diese Art der Aufdrängung ei- 
ner Sprache noch zeitgemäß ist. 
Wenn der Autor dieser Zeilen nicht 
schon das Gegenteil gesehen hätte, 
würde diese Frage erst gar nicht 
aufkommen. Da gibt es einen Rech- 
ner einer kleinen englischen Firma, 
die sich den Namen eines uns allen 
bekannten Raumschiffes gegeben 
hat, nicht wissend, daß die Überset- 
zung des Namens “Initiative““ bedeu- 
tet. Dieser Rechner hat keine der 
herkömmlichen Sprachen eingebaut, 
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nur eine relativ komfortable Text- 
verarbeitung. Der Clou sitzt auf der 
linken Seite des Gerätes: ein kleiner 
Modulschacht, der unter anderem 
Sprachmodule aufnehmen kann. 
Basic liegt (natürlich) serienmäßig 


bei, optional gibt es für einen ge- 
ringen Preis andere Sprachen (Pas- 
cal, Forth, Lisp, Fortran, Assembler 
und andere). Einfach einstecken, 
und die Kiste läuft. Ohne Wartezeit, 
ohne Speicherplatzverbrauch, mit 
vollen 128k freiem Programmspei- 
cher. Das ist Initiative, das ist zu- 
kunftsweisend!! 

Zu hoffen wäre, daß sich die Zube- 
hörindustrie auch schon solche Ge- 
danken gemacht hat und entspre- 
chend reagiert. 


128: Zwitter 
oder Geniestreich? 


Im Gegensatz zu den englischen 
Computerfreaks sind wir in 
Deutschland schon in der glücklichen 
Lage, die Floppy 1571 kaufen zu 
können. 

Die Entwicklung dieses Speicherme- 
diums war überfällig. Weder die Ka- 
pazität noch die Geschwindigkeit 
der alten 1541 waren hinreichend 
dimensioniert. Erst der Zwitter 

1570 konnte wenigstens das Ge- 
schwindigkeitsproblem beseitigen. 
Aufgrund des eigenen Betriebssy- 
stems ist es für die Industrie gar 
nicht so einfach, neue Laufwerke 

für den 128’er zu entwickeln. Immer- 
hin sind Bestrebungen im Gange, be- 
reits vorhandene Micro-Cassetten- 
laufwerke (Micro-Cartridges) an den 
C128 anzupassen. 


WIE SIEHT ES MIT ZUBEHÖR 
UND ERWEITERUNGEN AUS? 


Weiterhin lobenswert ist die Tatsa- 
che, daßß man der 1571 die Möglich- 
keit mitgegeben hat, Fremdformate 
unter CP/M zu lesen. Wenigstens 
hier hat man auf den Industriestan- 
dard zurückgegriffen. 

Die in Amerika angekündigte Erwei- 
terungsbox 1570 mit 512kB RAM 
wird in Europa nicht vor Mitte 

1986 zu haben sein, ebenso der 
MPS 1000, ein Matrixdrucker mit 
NLOQ (Near Letter Quality) Fähig- 
keit. 

In Verbindung mit dem Monitor 
1902 und der Floppy 1571 erscheint 
der C128 auf den ersten Blick recht 
attraktiv. Wirft man anschließend 
einen Blick auf die Kassenquittung, 
stehen da leicht über 2500 DM. 
Dafür bekommt man eine Maschine, 
deren Elemente allesamt ausgereift 
und millionenfach bewährt sind, 


die aber nichts Herausragendes bie- 
ten. Der 8502 Prozessor garantiert 
volle Kompatibilität zum 6510, der 
im C64 seine Dienste tut, und da- 
mit auch zu dessen Software. Wo- 
bei allerdings gleich auf einen Trend 
aufmerksam gemacht werden muß, 
der in England ‚‚sein Unwesen 
treibt‘. Manche Softwarehäuser 
gehen dazu über, einen Sticker auf 
ihre C64 Software zu kleben, der 
volle Lauffähigkeit auf dem 128’er 
behauptet, schamhaft wird ver- 
schwiegen: aber nur im 64’er Modus. 
Achten Sie also beim Softwarekauf 
darauf, daß Ihnen Programme ange- 
boten werden, die ausschließlich für 
den 128’er Modus geschrieben sind. 


FAZIT?? KEIN FAZIT!! 


Wir können Ihnen nicht sagen, ob 
der C128 die richtige Wahl für Sie ist, 
oder ob Sie die Finger davon lassen 
sollen. Der Bericht sollte Ihnen einen 
kleinen Denkanstoß geben, letztlich 
verfluchen Sie uns, wenn Sie die hier 
dargestellten Dinge am eigenen Leib 
verspüren. 
Darüber hinaus muß aber noch die 
Frage angeschnitten werden, ob ein 
CP/M User unbedingt am 64’er Mo- 
dus interessiert ist und umgekehrt, 
angesichts der Tatsache, was in die- 
sem jungen Jahr 1986 auf uns zu- 
kommen wird? 
Schon 1985 war ein schicksalshaf- 
tes Jahr in der Homecomputerindu- 
strie. BBC mit dem Acorn und 
Sinclair warfen das Handtuch und 
sind gerade dabei, unter anderer 
Führung wieder Fuß zu fassen. Das 
Gegenteil war mit Schneider der 
Fall. Vor allem in England erlebte 
dieser Computer einen kometenhaf- 
ten Aufstieg. 
Und Commodore? 
1986 wird auch ein Schicksalsjahr 
für diese Firma werden. Noch eine 
Pleite auf dem Homecomputer- 
markt wie mit den Typen C16, 
C116 und Plus/4 darf sie sich auf 
keinen Fall mehr leisten 
Vor diesem Hintergrund schrecken 
deshalb Meldungen aus Amerika 
auf, die einen sehr schleppenden 
Verkauf des C128 und des Amiga 
vermelden. Auch in der Bundesre- 
publik werden noch wesentlich 
mehr 64’er als 128’er verkauft. 
Die mangelnde Akzeptanz kann 
nur mit dem Warten vieler poten- 
tieller Käufer auf den Amiga er- 
klärt werden. Er soll auf der Han- 
nover-Messe im März vorgestellt 
werden und muß sich dann erst 
gegen die Konkurrenz behaupten. 
(cci, js) 
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HERO OF THE GOLDEN 


TALISMAN — 
ADVENTURESPIEL 
ERSTER KLASSE! 


Von der Firma Master- 
tronic kommt ein neues 
Adventurespiel. Es garan- 
tiert lange Stunden Unter- 
haltung und läßt keine 
Langeweile aufkommen. 


Autor: Shaun Southern 


Grafik: Es werden die 
einzelnen Gänge darge- 
stellt, in denen sich der 
Spieler gerade befindet. 
Je nachdem, zu welcher 
Stufe der Held vorstößt, 
werden verschiedene Mon- 
ster, die Geister der ver- 
storbenen Schatzsucher, 
gezeichnet. Des weiteren 
informiert ein Plan über 
die bereits betretenen 
Räume, und darüber, ob 
bereits alle Hilfsgegen- 
stände darin mitgenom- 
men wurden. Im unteren 
Feld des Monitors befin- 
det sich die Vorratsan- 
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zeige der Hilfsgegenstän- 
de, die zum Gebrauch 
mittels der Leertaste in 
ein Feld geschoben 
werden müssen. 
Schwierigkeitsgrad: Ist 
festgelegt und kann nicht 
geändert werden. 


Sound: Anfangsmusik 
von über vier Minuten, 
währenddessen kann sich 
der Neuling die Spiel- 
schritte (auf Englisch) 
erklären lassen. 


Ladedauer: Von Kassette 
5 Minuten 20 Sekunden. 


System: Commodore 128 
im C 64-Modus und € 64. 


Gesamturteil: Sehr gutes 
Spiel, das auch mit zuneh- 
mender Erfahrung nichts 
von seinem Reiz verliert, 
da es eine Unzahl von 


Spielmöglichkeiten gibt. 


DAS SPIEL: 


Nachdem der Spieler sich 


die Anleitung auf dem 
Bildschirm verinnerlicht 
hat (sofern er der engli- 


schen Sprache halbwegs 
mächtig ist), kann mit 
der Aufgabe begonnen 
werden: Der Held muß 
den goldenen Talisman 
finden, um den bösen 
Fluch von seiner Stadt ab- 
zuwenden. Hier lohnt es 
sich allerdings, den ge- 
samten Text am unteren 
Bildschirmrand durchlau- 
fen zu lassen. Nach der 
Spielanleitung hat der 
Autor nämlich zugeschla- 
gen: Mit der Begründung 
“Da keiner von der Presse 
bis jetzt ein Interview 
mit mir gemacht hat“ 
liefert er eine Personen- 
beschreibung seiner selbst, 
bei der kein Auge trok- 
ken bleibt. Da liest man 
zum Beispiel den Gruß 
an ein Mädchen, welches 
er an irgendeinem Ur- 
laubsstrand kennenge- 
lernt hat usw. Wenn also 
das Spiel beginnt, fällt 
der Held erst einmal in 
einen von Piranhas be- 
völkerten Wassergraben. 
Ist er aus diesem Graben 


herausgeschwommen, ge- 
langt er mit Hilfe eines 
Seils in die oberen oder 
unteren Höhlen oder er 
kann sich springend von 
einer Plattform zur ande- 
ren begeben, auf denen 
verschiedene Gegenstän- 
de gesammelt werden 
müssen, welche zu den 
unterschiedlichsten 
Zwecken benützt werden 
können: Am wichtigsten 
sind verschiedenfarbige 
Schlüssel, mit denen be- 
stimmte Tore geöffnet 
werden können, um in 
die nächste Spielebene 
zu gelangen. Außerdem 
gibt es noch Kerzen, um 
einige dunkle Räume zu 
erleuchten, einen Luft- 
vorrat zum gefahrlosen 
Tauchen und verschiede- 
ne Früchte, welche die 
Kraft des Helden wieder 
herstellen, da dieser bei 
jeder Berührung mit ei- 
nem Monster und beim 
Tauchen ohne Luftvorrat 
einige Prozente Lebens- 
kraft verliert. 

Wenn diese erschöpft ist, 
verwandelt sich der Held 
in einen Geist, um nun 
seinerseits ruhelos die 
künftigen Schatzsucher 
in Angst und Schrecken 
zu versetzen. Sind die 
ersten Barrieren über- 
wunden, steht der Held 
einem Drachen gegen- 
über, welcher von äußerst 
zäher Natur ist. Abgese- 
hen davon, daß er den 
Helden mit Feuerbällen 
bespuckt, was bei Tref- 
fern wieder einige Prozent 
Kraft verschlingt, muß er 
auch mit zig Schuß ge- 
troffen werden, bis er 
endlich verschwindet und 
den Weg zum nächsten 
Geheimnis freigibt. Mit 
zunehmender Erfahrung 
dringt der Spieler immer 
tiefer in das Labyrinth 
ein, in dem immer neue 
Gefahren lauern. 

Wer sich schon etwas ge- 
übter bewegt, wird unter 
zwanzig Minuten Spiel- 
zeit nicht vom Joystick 
kommen (außer er legt 
mittels der >Q<-Taste 
eine Pause ein). Aber 
auch nach noch so vielen 
Durchläufen wird es so 
schnell niemandem gelin- 
gen, das Spiel erfolgreich 
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zu beenden. Ob der Fülle 
von verschiedenen Gän- 
gen, Wassergräben und 
Stufen muß entweder ein 
Spielplan angelegt werden, 
um die einzelnen Stand- 
orte schnell erfassen zu 
können oder aber der 
Spieler verfügt über ein 
fotografisches Gedächt- 


nis. 

Alles in allem kommt für 
dieses Spiel nur die Be- 
wertung „sehr sehr emp- 
fehlenswert“ in Frage, da 
lange Nächte garantiert 
sind. Und dann noch der 
Preis. .., 


THE LAST V8 — 
SOUND PROGRAMM 
MIT AUTOSPIEL 


Das zweite neue Spiel aus 
Mastertronics MAD- 
Games Reihe heißt 

„Ihe last V8“. Es ist 
ebenfalls nur auf Kassette 
zum Billigpreis erhältlich. 


Autor: David Darling 


Grafik: Erstklassig! Im 
oberen Drittel des Bild- 
schirms erscheint die ak- 
tuelle Strecke, auf der 
sich das Auto befindet. 
In den unteren beiden 
Dritteln wird das Cock- 
pit des Wagens mit Lade- 
druck des Turboladers, 
Geschwindigkeit, Dreh- 
zahl und noch einigem 
mehr gezeichnet. Ein 
kleiner Bildschirm infor- 
miert über die Entfer- 
nung zur Basis und über 
etwaig zu befürchtenden 
Bombenalarm. 
Schwierigkeitsgrad: Lei- 
der, leider. Er ist nicht 
einstellbar. Und das wird 
den meisten Spielern 
den Spaß vermiesen. 
Dann nämlich, wenn es 
ihnen zu blöd ist, auch 
nach dem hundertfünf- 
zigsten Versuch, späte- 
stens in der fünften Kur- 
ve gegen’ einen der reich- 
lich vorhandenen Bäume 
zu knallen. 


Sound: Großartig. Es er- 
klingt zu Befinn des 
Spiels ein eigens kompo- 
niertes Lied, welches die 
musikalischen Möglich- 
keiten des C 64 durchaus 
zu nutzen versteht. 
Außerdem redet ein in 


der Anleitung hochgelob- 
ter Sprachsynthesizer, 
welcher allerdings nur 
nach längerem Orakeln 
entziffert werden kann. 


Ladedauer: Von Kassette 
6 Minuten 50 Sekunden. 


System: Commodore 128 
im C 64-Modus und C 64. 


Gesamturteil: Mit der 
richtigen Geduld kann 
das Spiel recht spannend 
werden, das größte Lob 
aber gehört ohne Zweifel 
der musikalischen Unter- 
malung. 


DAS SPIEL: 


Von der Anleitung in der 
Kassettenhülle, die sich 
über unglaubliche 8x3 cm 
erstreckt und in die auch 
noch zentimetergroße 
Löcher geknipst wurden 
(für die Mittelhalterung 
der Kassette), darf keine 
umwerfende Hilfe erwar- 
tet werden. Im Spiel geht 
es um folgendes: 

Sie sind ein Wissenschaft- 
ler, welcher sich in jahre- 
langer Arbeit im unter- 
irdischen Labor sein 
Auto umgebaut hat. 

Dies ist nun das einzige 
Fahrzeug, mit dem es 
noch möglich ist, sich 
auf der Erdoberfläche zu 
bewegen, denn nach dem 
atomaren Weltkrieg ist 
alles verseucht und es 
liegen noch massenhaft 
Zeitbomben herum. Ihre 
Aufgabe ist es, nach 
Überlebenden in der ver- 
seuchten Welt zu suchen. 
Mit dem Joystick wird 
das Auto auf dieser Su- 
che gelenkt, was aller- 
dings anfangs aufgrund 
der seltsamen Steuerbe- 
legung etwas schwerfällt: 
Nach rechts zu fahren 
zum Beispiel heißt, den 
Joystick nach oben zu 
drücken, wird nach unten 
gedrückt, fährt das Auto 
links. Die lauernden Ge- 
fahren bestehen einerseits 
in der Tatsache dieser 
Steuerung, da sich der 
Spieler bei seinen ersten 
Versuchen unweigerlich 
in diversen Bäumen und 
Zäunen wiederfindet, 
was zu einer wunderschö- 
nen Explosion führt. 


Die andere Gefahr sind 


die immer noch herumlie- 


genden Zeitbomben, die, 
wie der Name sagt, von 
Zeit zu Zeit in die Luft 
fliegen und natürlich da- 
bei den letzten V8 nicht 
verschonen. 


Der amerikanische Zeit- 
schriftenmarkt hat eine 
Veröffentlichung mehr: 
Präsentiert wird 
„Amiga-World“, ein 
Blatt für Commodores 
neuen Superrechner. 
Billig, nein billig ist 
Amiga-World wirklich 
nicht. Auf feinstem 
Hochglanzpapier, wo 
ganze zehn von sechs- 
undneunzig Seiten ein- 
farbig sind, Kommt im- 
merhin Amerikas 
Kunst-Papst Andy 
Warhol in einem sechs- 
seitigen Interview zu 
Worte. Plus Titelseite. 
Dies läßst auch auf 

den Charakter dieser 


LETZTE MELDUNG 


Tief in die Tasche greifen 
müssen User, die den 
neuen Commodore 
Amiga erstehen wollen. 
Das Commodore-Flagg- 
schiff, das auf der Cebit 
ab 12, März der breiten 
Öffentlichkeit vorgestellt 
werden soll, wird nach 

: | sich verfestigenden Mel- 
dungen 6700,— DM 
kosten — allerdings in- 
clusive des Farbmonitors. 
Aber selbst diese Tat- 
sache berücksichtigt: Für 
einen Grafik- und Musik- 
computer ein sehr stol- 
zer Preis. Warten wir ab, 
was der Markt sagen wird.’ 


Zeitschrift zurückschlie- 
ßen: Eine Modern-Art- 
Publikation für Com- 
puterfreaks. Für Kunst- 
studenten mit Compu- 
terambitionen ist die- 
se Zeitung ein Muß. 
Dies allerdings darf 

sich ein europäischer 
Leser etwas kosten las- 


AMIGA WORLD-ZEITUNG 
FÜR COMMODORES 
NEUESTES WUNDERKIND 


Dieses Spiel läßt sich auf 


einen kurzen Nenner 
bringen: Sound und Gra- 


fikdemonstration des 
C 64 mit Autospiel-Mög- 


lichkeit. Zu diesem Preis 
sicherlich kein Fehlkauf. 


T.S. 


sen: Aus dem ameri- 
kanischen Verkaufs- 
ee von ca. 9 Mark 

0 erwächst (bei Luft- 

ostversendung) ein 

ahresabopreis von 
181 Mark (beim der- 
zeitigen Dollarkurs). 
Bei der zweimonaten 
Erscheinungsweise ein 
Heftpreis von etwas 
über Dreißig Deutsche 
Mark. Wer sich von die- 
ser Tatsache nicht er- 
schüttern läßt, erhält 
ein wirklich lesenswer- 
tes Druckwerk (sofern 
sich die englischen 
Sprachkenntnisse auf 
einem durchschnittli- 
chen Stand befinden), 
welches mit einer Arti- 
kelüberschrift aus der 
ersten Amiga-World auf 
einen Nenner gebracht 
werden kann: „Ihe 
Personal Art ofa 
Personal Computer“, 
die persönliche Kunst 
eines Personal Compu- 
ter. Schöne Grafikab- 
bildungen mit dazuge- 
hörigen Artikeln wech- 
seln sich ab mit zwei- 
seitigen Softwareanzei- 
gen für die künstleri- 
sche Anwendung und 
sogar für so profane 
Dinge, wie Spiele für 
den Amiga. Für den 
Europäer, der einen 
Amiga noch nicht ein- 
mal zu Gesicht bekom- 
men hat, sicherlich ei- 
ne interessante Fund- 
grube. Bleibt zu war- 
ten, ob sich Amiga- 
World auf dem ameri- 
kanischen Computer- 
Zeitungs-Markt behaup- 
ten wird und das Ni- 
veau des ersten Heftes 
halten kann. (t.s.) 


In Anbetracht der geringen Kosten für die komplette Hardware- 


Ausstattung und der inzwischen voll ausgereiften kommerziellen Software, 


lohnt sich der Einsatz des C-64 für zahlreiche Anwendungen in 


privaten und beruflichen Bereichen. 


Insbesondere für kleinere Betriebe, 


für nebenberuflich und freiberuflich Tätige, wird der Commodore 64die 
anfallenden Datenverarbeitungsprobleme zufriedenstellend erledigen. 


Wir wollen Ihnen daher ein von der 
Firma SM-Software AG für den kauf- 
männischen Bereich entwickeltes 
Programmpaket vorstellen. Es sind 
insgesamt sechs Programme, die ein- 
zeln oder integriert eingesetzt wer- 
den können. Integriert bedeutet 
hier, daß die mit einem Einzelpro- 
gramm erstellten Dateien mit jedem 
anderen Programm dieser Produkt- 
Familie weiter verarbeitet werden 
können. Zum Software-Paket 
“Small Business‘ gehören 
SM-KUNDEN 

SM-RECHNUNG 

SM-LAGER 

SM-LOHN 

SM-TEXT+ 

SM-JOKER+ 

Welche Funktion die Programme ha- 
ben, ist bereits aus ihrer Bezeich- 
nung abzulesen. Lediglich bei SM- 
JOKERH+ ist nicht sofort ersichtlich, 
wozu dieses Programm dient. SM- 
JOKERH+ ist die Datenbank dieses 
Programmpaketes. Mit JOKER+ 
können Sie Daten aller Art verwal- 
ten: Z.B. die Mitglieder Ihres Ver- 
eins mit Adressenliste, Anschriften 
Ihrer Kunden, Bekannten oder Mit- 
arbeiter Ihrer Firma, Video-, oder 
Schallplattendateien, Inventarver- 
zeichnisse, Artikellisten Ihrer Firma, 
mit dem Umsatz und der Lagerdau- 
er für jeden Artikel usw. 

Nachdem neben der Textverarbei- 
tung die Datenverwaltung die am 
häufigsten eingesetzte Anwendung 
sowohl im privaten wie im beruf- 
lichen Bereich ist, wollen wir aus 
der Small Business-Familie von 
SM-Software das Programm 
JOKER+ testen. Sowohl SM-TEXT 
als auch SM-JOKER+ waren be- 
reits in der Golden Tools Programm- 
reihe vorhanden und stehen jetzt in 
der Small Business-Reihe, gekenn- 
zeichnet mit dem ‘+‘-Zeichen, ver- 
bessert und ausgereift, mit noch 
mehr Funktionen zur Verfügung. 


OPTIMALES ARBEITEN NUR 
MIT ZWEI FLOPPYS 


BR EB a ES ELSE 
SM-JOKER+ wird auf Diskette zu- 


sammen mit zwei Handbüchern aus- 
geliefert. Um mit JOKER+ optimal 
arbeiten zu können, benötigen Sie 
neben dem Commodore 64, einen 
Drucker und zwei Diskettenlauf- 
werke VC 1541. Weil das Programm 
nicht komplett im Speicher steht, 
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wird immer wieder auf die Pro- 
grammdiskette zugegriffen. Die Da- 
tendiskette kommt in das Laufwerk 
mit der Gerätenummer 8, die Pro- 
grammdisk in das andere Gerät. 
Nach dem Laden erscheint das 
Hauptmenü mit 16 Menüpunkten. 
Sie wählen zuerst den Menüpunkt 
Kopierprogramm aus. Wie bei allen 
guten kommerziellen Programmen, 
ist auch bei JOKER+ das Anferti- 
gen einer Sicherheitskopie möglich. 
Nach Verwahren des Originals arbei- 
ten Sie mit der Kopie und entschei- 
den nun ob Sie mit der Commo- 
dore oder mit der deutschen Tasta- 
tur arbeiten wollen. Danach wählen 
Sie den Menüpunkt “Druckerpara- 
meter einstellen‘. Diese Funktion 
wird im zweiten Handbuch ausführ- 


Die kaufmännisch 
orientierte Software-Serie 
für kleinere Betriebe. 


SM JOKER+ 


lich erklärt. Verwenden Sie Drucker 
von Commodore oder Kompatible, 
z.B. bei Seikosha ist keine Einstel- 
lung erforderlich. Auch für Einstei- 
ger ist die sonst eher schwierige An- 
passung des Druckers mit Hilfe die- 
ses Handbuchs leicht möglich. So- 
gar eine Abhandlung über hexade- 
zimale und duale Zahlensysteme ist 
enthalten, um die in vielen Drucker- 
handbüchern hexadezimal darge- 
stellten Codetabellen zu verstehen. 
Zuerst geben Sie die allgemeinen 
Druckerparameter wie Geräte-Se- 
kundäradresse, Zeilen pro Seite, 
Zeilenvorschub usw. an. Sie kön- 
nen Ihren Drucker, z.B. Epson oder 
Star, statt an der seriellen Schnitt- 
stelle auch am User-Port anschlie- 


DIESER 
STICHT 


ßen. Zum Basteln eines passenden 
Kabels ist die Belegung des User- 
ports und der Centronics-Schnitt- 
stelle erläutert. Nach dieser Grund- 
einstellung können Sie mit Hilfe 
der Codewandlung jedes Zeichen 
von der Tastatur an Ihren Drucker 
anpassen. Der Ausdruck von Um- 
lauten und anderen deutschen 
Sonderzeichen auf geeigneten Druk- 
kern wird damit ermöglicht. Die 
Anpassung eines Epson Druckers ist 
im Handbuch als Beispiel erklärt. 
Kein Problem ist auch die Anpas- 
sung von Typenradschreibmaschi- 
nen oder von Drucker-Exoten. 

Die so erstellte Druckertabelle wird 
auf Diskette gespeichert und wird 
beim nächsten Laden des Hauptpro- 
gramms automatisch mitgeladen. 
Vor dem eigentlichen Arbeiten kön- 
nen Sie noch die Rahmen- und die 
Hintergrundfarbe Ihren Wünschen 
anpassen. Die Schriftfarbe kann lei- 
der nicht geändert werden. Sie ist 
fest auf die Farbe grün eingestellt. 


2 HAUPTANWENDUNGSGEBIETE 


Bei den Anwendungen für JOKER+ 

gibt es zwei Haupteinsatzbereiche: 

Datenbanksystem und Kalkulations-, 

Rechensystem. 

Von den Arbeitsmöglichkeiten kann 

man das Programm in folgende 

Bereiche einteilen: 

l. Anlegen von Haupt-, Rechen- 
und Listenmasken 

. Eingeben von Daten in Haupt- 
und Rechenmasken 

. Ausgabe der Daten mit Sortieren/ 
Suchen/Listendruck 

. Ausgabe der Daten in externe 
Listen zur Verarbeitung in ande- 
ren Programmen 

5. Einlesen von externen Listen in 

bestehende Datensätze 
Diese Funktionen ermöglichen das 
professionelle Bearbeiten Ihrer 


$ ww N 


 Datensammlungen. 


Grundsätzlich kann ein Datensatz 
99 Felder beinhalten. Davon kön- 
nen Sie bis zu 10 Schlüsselfelder be- _ 
nennen, nach denen die Datei stän- 
dig sortiert ist. Textfelder können 
bis zu 250 Zeichen und Zahlenfel- 
der 9 Stellen lang sein. Der Daten- 
satz ist auf einen Bildschirm mit 23 
Zeilen begrenzt. Auf der Diskette 
können Sie,bei einer Länge des 
Datensatzes von ca. 150 Zeichen, 
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etwa 1000 Datensätze speichern. 
JOKERH+ ist über die Funktions- 
tasten voll menügesteuert. Die ak- 
tuelle Belegung der Tasten wird 

in den beiden untersten Bildschirm- 
zeilen ständig angezeigt. Man muß 
sich daher keine Control-Codes 
merken. Dies macht sich vor allem 
bemerkbar, wenn nicht täglich mit 
dem Programm gearbeitet wird. 


1. Anlegen von Haupt-, Rechen- 
und Listenmasken 
Hauptmasken beinhalten die Be- 
zeichnungen der Felder des Daten- 
satzes sowie die Definitionen der 
Feldarten. Unterschieden wird da- 
bei in Text- und Zahlenfelder und 
ob das jeweilige Feld ein Schlüssel- 
feld sein soll. 
Zu jeder Hauptmaske können bis 
zu 35 Rechenmaksen angelegt wer- 
den. Damit werden komplexe Kal- 
kulationen und Berechnungen mit 
den Zahlenfeldern Ihres Datensatzes 
ermöglicht. In 99 Registern können 
Sie Konstanten und Variable zur 
Berechnung definieren. Neben den 
Grundrechnungsarten wird auch die 
Quadratwurzel berechnet. Listen- 
masken dienen zur Definition des 
Formats Ihrer Daten bei der Aus- 
gabe auf einen Drucker. 


2. Eingeben von Daten in Haupt- 
und Rechenmasken 
Die Datenerfassung erfolgt komfor- 
tabel in die definierten Felder. Der 
Cursor kann die Eingabefenster 
nicht verlassen. In Zahlenfeldern 
wird Text nicht angenommen. Je- 
der Datensatz wird sofort auf Dis- 
kette geschrieben. So können bei 
Stromausfall keine Daten verloren 
gehen. Bei der Eingabe in Rechen- 
masken werden die berechneten 
Ergebnisse automatisch auf Disket- 
te zurückgeschrieben und so der 
Originaldatensatz geändert. 


3. Ausgabe der Daten mit Sortieren/ 
Suchen/Listendruck 
Sie können jeden Datensatz Ihrer 
Datei suchen, ändern, löschen oder 
auf Bildschirm oder Drucker ausge- 
ben. Suchen können Sie über volle 
oder verkürzte Schlüssel. Sie kön- 
nen beim Suchen nach Datensätzen 
aber auch Selektionskriterien an- 
geben. Maximal sind 15 Suchkrite- 
rien erlaubt. 


Folgende Operatoren können einge- 
setzt werden: Klammer, logische 
Verknüpfungen (UND/ODER), 
größer, kleiner, gleich, ungleich, 
sowie die Joker ‘** und ‘°”“. 

Die Joker (Platzhalter) haben die 
gleiche Funktion wie bei Diskope- 
rationen. Das Fragezeichen steht an 


. Stelle eines beliebigen Buchstabens, 


der Stern meist am Ende eines Such- 
wortes. Die so zusammengestellten 
Datensätze können Sie nun auf 
Drucker ausgeben. Dabei haben Sie 
viele Möglichkeiten, das Aussehen 
und den Inhalt der Druckliste zu 
gestalten. Sie können z.B. Über- 
schriften, Kopf- und Fußzeilen de- 
finieren (der gleiche Text wird zu 
Beginn und am Ende jeder Seite 
gedruckt), einen Seitenzähler ein- 
bauen usw. Das Programm führt 
auch beim Ausdruck Berechnungen 
(die vier Grundrechnungsarten und 
die Quadratwurzel) durch. So kann 
der Umsatz des einzelnen Daten- 
satzes zum Gesamtumsatz des Be- 
triebs summiert, der durchschnitt- 
liche Umsatz je Artikel berechnet 
oder die Anzahl Ihrer Kunden, 

mit unbezahlten Rechnungen ad- 
diert und am Ende des Ausdrucks 
angezeigt werden. 


4. Ausgabe der Daten in externe 
Listen zur Verarbeitung in 
anderen Programmen 

Alle Datensätze oder mit den oben 

aufgeführten Selektionskriterien 

ausgewählte Datensätze können 
als sequentielles File auf Diskette 
ausgegeben werden. Somit ist die 

Weiterverwendung der Daten, z.B. 

in Textverarbeitungs- oder Kalku- 

lationsprogrammen, möglich. 


5. Einlesen von externen Listen 

in bestehende Datensätze 
Alle bisher von Ihnen erfaßten 
Daten, ob mit einem anderen Da- 
tenverwaltungsprogramm oder mit 
einem Textverarbeitungsprogramm, 
können in eine JOKER-Datei über- 
nommen werden. Voraussetzung 
ist wieder, daß die Daten in einem 
sequentiellen File gespeichert wur- 
den. Besonders erwähnenswert ist 
hier, daß Sie mit JOKER auch 
Serienbriefe erstellen können. Sie 
ersparen sich damit eventuell ein 
Textverarbeitungsprogramm. Ein 
Text mit einer Länge von bis zu 
100 Zeilen bei 80 Zeichen Breite 
wird von JOKER eingelesen. Da- 
nach druckt JOKER den Rund- 
brief, mit gleichem Text, aber un- 
terschiedlichen Adressen versehen, 
so oft aus, wie Sie es benötigen. 
Auch hier können Sie wieder die 
umfangreichen und komfortablen 
Such- und Sortier-Optionen von 


JOKER einsetzen. Sie entscheiden 
z.B., ob der Brief nur an Ihre Kunden 
in München geht (Auswahl über die 
Postleitzahl), oder ob nur Adressen 
ausgewählt werden, bei denen als 
Hobby ‘Computer‘ angegeben ist. 
Selbstverständlich können die bei- 
den Auswahlbedingungen auch ver- 
knüpft werden. 


FAZIT 


SM-JOKER+ ist ein professionelles 
Datenverwaltungsprogramm. Das 
Programm ist über die Funktionsta- 
sten menügesteuert.’Sie können zwei 
Diskettenlaufwerke ansprechen. Der 
Datensatz kann insgesamt 915 Zei- 
chen lang sein und maximal 99 Fel- 
der,mit bis zu 250 Zeichen umfas- 
sen. Zu jeder Hauptdatei sind 35 
Rechendateien erlaubt. Je Datei kön- 
nen 35 Drucklisten definiert werden. 
Der Ausdruck Ihrer Daten ist auf 
fast allen Druckern möglich. Dabei 
können Berechnungen, Sortierungen 
und ABWEICHEN durchge- 
führt werden. Die Datensätze kön- 
nen jederzeit als Einzelhardcopy 
oder als Listen auf Bildschirm, Druk- 
ker oder Diskette ausgegeben wer- 
den. In JOKER+ können beliebige 
sequentielle Files eingelesen werden. 


Pluspunkte: 
Datenaustausch mit der Pro- 

. dukt-Familie ‘Small Business’ 
der Firma SM-Software 
Ausgeben und Einlesen von 
sequentiellen Files 
Einfache Bedienung über 
Funktionstasten 
Umfangreiche und komfortable 
Möglichkeiten zum Sortieren 
und Auswählen der Datensätze 
Schreiben von Serienbriefen 
Deutscher Zeichensatz 
Fast alle Drucker einsetzbar 


Minuspunkt: 

Zwei Laufwerke erforderlich, 
sonst ständiger Disketten- 
wechsel 


Diese Files können zum Auffüllen 
der Datensätze oder zum Einsatz in 
Rundbriefen verwendet werden. 

Die beiden mitgelieferten Handbü- 
cher sind übersichtlich gegliedert. 
Alle Funktionen des Programms 
werden anhand eines Beispiels 
*Lagerverwaltung‘ erklärt. Ein Ver- 
zeichnis und die Erläuterung der ver- 
wendeten Fachausdrücke ist enthal- 
ten. Damit kann das Programm 
auch von Einsteigern ohne Program- 
mierkenntnisse rasch eingesetzt 
werden. (js,et) 


11 


0000001010101 


| TIPS & TRICKS 


DFÜ 


Die erste Frage, die sich auftut ist: „Was braucht 
man zur DFÜ?‘' Man braucht ein Modem oder einen 
Akustikkoppler, um elektronische Impulse in Töne 
umzusetzen und diese dann durch die Telefonleitung 
zu schicken. Außerdem braucht man selbstverständ- 
lich einen Computer, wenn möglich eine Floppy und 
natürlich die nötige Software. 


Wenden wir uns zunächst 
der Hardware zu. Das 
Modem wird im Gegensatz 
zum Akustikkoppler di- 
rekt an die Telefonlei- 
tung angeschlossen. 

Beim Akustikkoppler 
wird der Telefonhörer in 
zwei dafür vorgesehene 
Muffen gelegt. Die Preise 
der Hardware bewegen 
sich zwischen 100 und 
1000 DM, wobei billigere 
Typen schon voll ausrei- 
chen. Bausätze gibt es 
teilweise entsprechend bil- 
liger. Allerdings sollten 
weniger versierte Elektro- 
nikbastler lieber die Fin- 
ger von Bausätzen lassen, 
da diese oft sehr schwie- 
rig aufzubauen sind. 

Nun zur Software. Es 
gibt zahlreiche Terminal- 
programme. Es gehen alle, 
soweit die Übertragungs- 
parameter einstellbar sind. 
Doch dazu später. Den 
meisten Modems oder 
Akustikkopplern sind 
auch einfache Datenüber- 
tragungsprogramme beige- 
legt, welche jedoch später 
nicht mehr ausreichen. 
Bei guter DFÜ-Software 
kann man beispielsweise 
Protokoll auf der Floppy 
mitschreiben lassen oder 
Texte bereits vorher einge- 
ben und editieren und 
später senden. Diese Pro- 
gramme müssen nicht 
teuer sein. Bei ‘““Freeware“* 
gibt es sogar leistungsfä- 
hige Programme wie 
“Proterm‘“‘ kostenlos! 
Nun kommen wir zum ei- 
gentlichen Thema. Die 
DFÜ stellt dem Anfänger 
in der Datenfernübertra- 
gung oft einige Hürden in 
den Weg. Beispielsweise 
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die Einstellung der Über- 
tragungsparameter. Im 
großen und ganzen sind 
sie in jeder Mailbox gleich, 
trotzdem gibt es ab und 
zu feine Unterschiede. 

Die meisten Mailboxen ar- 
beiten mit folgenden 
Parametern: 


NICHT 
FÜR PROFIS! 


Baudrate: 2 
Datenbits: 

Stopbits 1 
Parity: NO 
Duplex: VOLL 


Sollte die Datenfernüber- 
tragung mit dieser Ein- 
stellung nicht funktionie- 
ren, so muß man ein we- 
nig 'herumprobieren. 

Aber laßt euch nicht zu 
lange Zeit, da die mei- 
sten Mailboxen die Ver- 
bindung abbrechen, wenn 
nach einer bestimmten 
Zeit (40 — 90 sec) kein 
Signal ankommt. 

Wenn ihr schließlich mit 


dem Computer in Verbin- 
dung getreten seid, gebt 
ihr am besten zunächst 
“HELP“ ein. 

Die meisten Mailboxen be- 
sitzen diese Funktion. 
Nun wird eine Gesamt- 
übersicht der Bedienungs- 
funktionen auf dem Bild- 
schirm dargestellt: Am 
besten notiert man sich 
alles, denn es ist unange- 
nehm, wenn man plötz- 
lich aus einem Menüpunkt 
nicht mehr herauskommt. 
In den meisten Boxen 
kann man sich mit dem 
SysOp (System-Operator) 
unterhalten, was man mei- 
stens durch die Eingabe 
von “COM“ erreicht. 

Der SysOp kann einem 
auch weiterhelfen, wenn 
man eine Frage zum 
System hat. 

Die wichtigste Sache ist 
das Pinboard, es ist öffent- 


AN COMMODORE COM 
MONITORANSCHLUSS 


€: 


3 
Auf die Lölstifte gesehen 


Video (Bid) 
Masse 
Audio (Ton) 


wre 
ou... 


Masse 
Audio (Ton) 
Video (Bild) 


“urn 
aus 


Monitoranschl unkabel 


vc-20 


COMMODORE 


Dinstecker ( 180° 5polig) 


C64 / CI6/CN6/ Plus4 


Audio 


Wenn man das Geflimme- beginnt das Problem des 


re auf dem Fernsehgerät 
endlich leid ist, und man 


Anschlusses an den Com- 
puter. Da es immer noch 


sich zum Kauf eines Moni- keine endgültige Norm 


tores entschlossen hat, 


hinsichtlich des Anschlus- 


ses besteht, haben die 
Computerhersteller vor 
dem Erfolg eines flimmer- 
freien Bildes noch den 
Schweiß bzw. den Lötkol- 
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lich und kann somit von 
jedem (auch von Gästen) 
genutzt werden. Dort 
kann man Kaufgesuche 
oder Verkäufe veröffent- 
lichen. Ist man Mitglied 
in einer Box, was mei- 
stens kostenlos ist, so be- 
kommt man einen priva- 
ten „Briefkasten“ ange- 
legt. So kann man auch 
Nachrichten an andere 
User persönlich schreiben. 
In vielen Mailboxen gibt 
es auch einen Menüpunkt, 
von welchem aus man 
sich Programmfiles aus 
der Mailbox herausholen 
kann. Dazu muß man die 
Funktion “DOWNLOAD“ 
im Terminalprogramm 
aufrufen. Nun wählt man 
den entsprechenden 
Menüpunkt in der Mailbox 
an und speichert das Pro- 
grammfile als sequentielle 
Datei auf Diskette ab. 


PUTER: 


ben gesetzt. Man kann na- 
' türlich auch ein fertiges 
Kabel erwerben, aber 
erstens ist es teuer und 
was noch viel schlimmer 
ist, nicht immer lieferbar. 
Auch werden einem auch 
schon mal die falschen 
Kabel angeboten, denn es 
gibt, wie die Zeichnung 
zeigt, Unterschiede zwi- 
schen den einzelnen Com- 
modore-Computern. Al- 
so greift man zum Löt- 
kolben und bastelt sich 
sein Kabel selber. Als Ma- 
terial benötigt man nur 2 
bzw. 3 handelsübliche 
Stecker, die in jedem Elek- 
tronikgeschäft vorrätig 
sind. Als Kabel nimmt 
man ein 2adriges, abge- 
schirmtes, entsprechend 
der gewünschten Länge. 


BESSERES BILD 


Die Beschaltung des ent- 
sprechenden Kabels ent- 
nehmen Sie bitte der 
Zeichnung. Und nun viel 
Spaß mit dem neuen 
Monitorbild. 


Die sequentielle Datei 
kann man nicht laden und 
starten, sie muß erst zu 
einem Programm umge- 
wandelt werden. Zum Um- 
wandeln wird ein speziel- 
les Programm (ein SEQ- 
Wandler) benötigt. Ein 
Beispiel dafür ist das fol- 
gende kleine Programm. 
63989 rem ================== 
63990 rem = SEQ-WANDLER 


63991 rem = 1985 = 
63992 rem = by = 
63993 rem = Marc Bendel = 


63994 rem =======#======.-=- 
63995 input ‘Segq-File Name‘ ;s$ 

: open 4,8,4,5$+"',s,r'' 
63996 get#4,a$: if a$<>chr$(13) 

then b$=b$+a$ : goto 63996 
63997 if len(b$) <2 then b$=b$ 

: goto 63996 
63998 print chr$(147);b$ : print 

“poke 152,1 : goto 63996” 
63999 poke 198,3 : poke 631,19 

:poke 632,13 : poke 633,13 
Dieses Programm wandelt 
nur Kleinbuchstaben. Soll- 
ten im sequentiellen File 
Großbuchstaben vorkom- 
men, so sind diese mit ei- 
nem Textverarbeitungspro- 
gramm in Kleinbuchsta- 
ben abzuändern. 
Nach der Umwandlung 
sind die Zeilen des Wand- 
lerprogramms zu streichen. 
Die Zeilennummern sind 
absichtlich groß gewählt, 
so daß sie sich später 
leicht streichen lassen. 
Danach wird das Pro- 
gramm normal auf Disket- 
te abgespeichert. Jetzt 
läßt sich das Programm 
laden und starten. 
In den Mailboxen gibt es 
noch viele andere Menü- 
punkte, die jedoch von 
Box zu Box verschieden 
sind. Übrigens lohnt es 
sich, nach 18 Uhr oder am 
Wochenende zu telefonie- 
ren, da der Zeittakt dann 
länger ist und sich die Tele- 
fonkosten reduzieren. 
Zum Schluß noch einige 
Mailbox-Nummern, damit 
ihr gleich loslegen könnt. 
Bewährte Boxen: 
WDR Computerclub 
0221/371076 . 
DECATES 
06154/51433 
OTIS 06181/48884 
TEDAS 089/596422 

089/598423 

Diese Angaben sind ohne 
Gewähr! Marc Bendel 


TIP: 


Wollen Sie wissen, über welche Grafikzeichen Ihr 
Commodore 8032 verfügt und wollen Sie die da- 
zugehörigen CHR$ erfahren? 

Mit diesem kleinen Programm kein Problem: 


x=33 
20 a$=chr$(014) 
30 b$=chr$(142) 
40 print chr$(147): print “chr$(”x’‘) im Groß-/ 
Klein-Modus ist’’ 
50 print chr$(x) 
60 for t=1 to 3000: next t 
70 print chr$(147): print b$ 
80 print “chr$(‘x‘) im grafik-modus ist’ 
90 print chr$(x) 
for t=1 to 3000: next t 
x=x+1 
if x>126 and x<161 then x=161 
if x>255 then x=33:run 
print a$: goto 40 
Erläuterungen: 
In den Zeilen 20 und 30 werden die Codes zur Um- 
schaltung zwischen Groß-/Kleinschriftmodus und 
Grafikmodus festgelegt. - 
Die Zeitschleife in Zeile 60 und 100 ermöglicht es, 
etwaige Notizen zu den einzelnen Codes zu ma- 
chen. Sie kann natürlich beliebig verlängert oder 
verkürzt werden. 
In Zeile 110 wird das Programm aufgefordert, den 
nächsten Code für den Ausdruck zu verwenden. 
Da zwischen chr$(126) und chr$(161) die Bild- 
schirmanweisungen liegen, die das Programm zum 
Absturz bringen, wird das Programm in Zeile 120 
angewiesen, diese Strings auszulassen. (t.s.) 


Die PEEK/POKE-MAGICS! 
“ Jetzt gratis zu jeder Katalog-Bestellung. - 


Über 300 PEEKS und POKESTips und Tricks 
als kompaktes Nachschlagwerk mit den letzten 
Geheimnissen des Betriebssystems. Zu 
Da sollten Sie zugreifen! j 

- Aigy Katalog "Winter 85/86” (64 Seiten).\\% 

. —SY7 Schnell anfordern od. abholen für 

2,50 DM (Briefmarken). 
Stichwort "Katalog + PEEK/POKE-MAGICSI!" 
Wir haben alles für COMMODORE 64, C-128, VC-20! 
Geräte, Hardware, Software, Zubehör und...und... 
über 500 Artikel zu Tiefstpreisen! i 


end. Str. h, 
MUrra en Seersen 
DATEN-TECHNIK | ® 030-782 9150/60 _Sa.:10-13 Uhr 


Händleranfragen erwünscht. : 24 Std. Schnellversand. 
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NOCH EINFACHER: 


SM ADREVA 64/2 


Das Adressverwaltungsprogramm der Firma SM Software wurde 
gegenüber dem Vorgängerprogramm Adreva 64 in einigen Punkten ver- 
bessert. So ist jetzt eine schnellere Verarbeitung möglich, ein Kopier- 
programm wird auf der Programmdiskette mitgeliefert und außerdem 
wurden einige Fehlerquellen ausgeschaltet, die bei dem früheren 
Programm zur Zerstörung der Adressdatei führen konnten. Dies hat eine 
noch einfachere Handhabung des Programmes zur Folge. 


JM ADREVA 64 


GOLDEN TOOL 


Adreva läuft voll auf dem deut- Gut: Die gespeicherten Adressen 
schen Zeichensatz, sämtliche Bele- können nach zwei Kriterien gesucht 
gungen entsprechen der DIN-Tasta- werden: Nach der Kundennummer 
tur. Umständlich ist die langwierige oder nach einem Suchbegriff. 
Druckparametereinstellung. Wird keine Kundennummer einge- 
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geben, so setzt Adreva automatisch 
die nächste verfügbare Zahl ein. 
Dies hat den Vorteil, daß keine 
Adressen überschrieben werden 
können und systematisch die Kun- 
den in numerischer Reihenfolge 
auf die Adressdiskette gespeichert 
werden. Würde nämlich eine hohe 
Kundennummer eingegeben, ob- 
wohl noch niedrigere zur Verfü- 
gung stehen, setzt das Programm 
entsprechend viele „Leeradressen“ 
vor die gerade eingegebene. Und 
dies kostet Verarbeitungszeit und 
Hirnschmalz, da sich der Benützer 
die verwendeten Kundennummern 
nun merken muß. Das Einsetzen 
der Kundennummern sollte aus 
diesem Grund dem Rechner über- 
lassen bleiben, wichtiger und vor 
allem übersichtlicher ist es, ledig- 
lich den Suchbegriff selbst zu be- 
stimmen. 

Zweckmäßig wäre hier zum Beispiel 
den Namen der in die Datei einzu- 
gebenden Person zu verwenden. 
Wird dann später irgendeine 
Adresse aus dem Speicher abgeru- 
fen, genügen die ersten Buchsta- 
ben des Suchbegriffes und der 
Computer gibt den einzelnen Da- 
tensatz heraus. 

Sollen mehrere Adressaten mit den 
gleichen Nachnamen gespeichert 


MEHRERE DRUCK- 
MODIS MÖGLICH 


werden, wäre es sinnvoll, zu den er- 
sten Buchstaben des Nachnamens 
einen oder mehrere Anfangsbuch- 
staben des Vornamens einzugeben, 
z.B. für Hans Maier ‘““maih“. 

Des weiteren erlaubt dieses Pro- 
gramm zu ‚blättern‘, d.h. von einer 
Adresse zur nächsten (oder zur letz- 
ten) zu gehen. 

Noch ein Vorteil besteht darin, daß 
zwischen mehreren Ausdruckmodi 


gewählt werden kann: 


— Einzeladressenausdruck 

— Gesamtadressenausdruck 

— Teiladressenausdruck 

Hierbei kann der User sogar noch 
wählen, ob der Ausdruck auf Liste 
oder auf Standardaufkleber erfolgen 
soll. Allerdings können nur genorm- 
te Adressaufkleber benützt werden, 
die eine Breite von 33 Zeichen und 
eine Länge von 9 Zeilen besitzen. 
Am interessantesten ist der Teil- 


WEMEIERN  e RREE 


adressenausdruck: Darin ist es mög- 
lich, z.B. nur sämtliche Adressen. 
bis zu einem bestimmten Anfangs- 
buchstaben ausdrucken zu lassen, 
natürlich funktioniert dies auch zwi- 
schen dem Alphabet oder nur für 
einen Buchstaben. So ist es möglich, 
DOREEN alle Personen, deren 
Nachname mit M beginnt, ausdruk- 
ken zu lassen. Beim Drucken liegt 
allerdings ein Schwachpunkt des 
Programmes: Werden normale Com- 
modore- oder andere Drucker ver- 
wendet, die am seriellen Bus des 
64’er angeschlossen sind, muß im- 
mer darauf geachtet werden, daß 
der Drucker während des Abspei- 
cherns der Adressen ausgeschaltet 
ist. Ansonsten kann der Drucker die 
Funktion der Diskettenstation so 
beeinträchtigen, daß die gesamte 
Datei zerstört wird. Auf diese Tat- 
sache wird im Handbuch alle paar 
Seiten in Fettdruck hingewiesen. 

Es ist daher empfehlenswert, von je- 
der Adressdiskette eine Sicherheits- 
kopie anzufertigen. Hierfür eignet 
sich das Programm ‘‘Copy/All‘“ auf 
der von Commodore zum 1541- 
Laufwerk mitgelieferten Demo- 
diskette. 


KORREKTUREN SIND 
KEIN PROBLEM 


Gibt es einmal etwas zu korrigieren, 
hat man mit Adreva keine Proble- 
me. Die zu berichtigende Adresse 
wird abgerufen, und kann ganz nor- 
mal mit dem Cursor ausgelöscht 

und neu eingesetzt werden. Es ist 

nicht nötig, wegen eines Buchstabens 

die ganze Zeile oder gar das gesamte 

Blatt neu zu schreiben. 

Auf eine Seite einer Adressdiskette 
assen genau 622 Adressen. Dies wird 
ür den Anwender am C64 in der Re- 

gel durchaus genügen, sollen jedoch 

tatsächlich einmal mehr Adressen 
gespeichert werden, stellt dies kein 

Hindernis dar. Das Programm forma- 

tiert automatisch eine neue Diskette 

und legt darauf eine neue Datei an. 

Für diesen Fall sollte am besten eine 

Vorsortierung der Adressen vorge- 

nommen werden, um das Über- 

schreiten der Diskettenkapazität 

zu vermeiden. ‘ 

Zusätzlich kann zu jeder Adresse 

ein fünfzeiliger Kommentar ge- 

schrieben werden, in den zum Bei- 

spiel bestimmte Briefendungen ein- 
gesetzt werden können, die in Ver- 
bindung mit Text 64 in Formbrie- 
fen eingesetzt werden. 

Die Bedienung der Disketten ist et- 

was umständlich: Zuerst wird das 

Adreva-Programm eingeladen. 

Dann erscheint das Hauptmenü, bei 

dem zwischen einzelnen Programm- 


punkten ausgewählt werden kann. 
Hier fällt auf, daß die Einstellwerte 
für deutsche Tastatur, Druckerein- 
stellung usw. lediglich bei der ersten 
Inbetriebnahme des Programmes 
bestimmt werden. Sie werden dann 
auf der Programmdiskette einge- 
setzt und bei weiterer Verwendung 


. automatisch eingelesen. Die Ände- 


rung dieser voreingestellten Daten 
geschieht ebenso problemlos. Es 
werden lediglich andere Werte 
gewählt, welche dann wiederum auf 


* die Programmdiskette zurückge- 


speichert werden. Warum diese an 
sich praktische Lösung nicht bei der 
Farbauswahl für die Bildschirmdar- 
stellung ermöglicht wird, ist ein Ge- 
heimnis des Herstellers, diese Farb- 
bestimmung muß der Benutzer je- 
desmal neu vornehmen. Sind also 
alle erforderlichen Einstellungen 
vorgenommen, wird es umständlich. 
Nun muß mit dem eigentlichen 
Adressprogramm begonnen werden. 
Dies wird eingeladen, woraufhin 

die Disketten gewechselt werden 
müssen, um an die gespeicherten 
Adressen zu gelangen. Befindet sich 
dann die Adressdiskette im Lauf- 
werk, muß auch deren Inhalt in den 
ge ran eingeladen werden, 
und endlich kann mit der Adressen- 
bearbeitung begonnen werden. Auf 
dem Monitor befindet sich nun ein 
Karteiblatt, in das alle erforderli- 
chen Daten geschrieben werden kön- 


‘nen. Außerdem stehen in den bei- 


den unteren Zeilen die möglichen 
Befehle mit den dazugehörigen ab- 
gekürzten Anweisungen. Hier ist es 
auch noch möglich, mittels der 
>Help<-Taste eine ausführliche Be- 
schreibung der Befehle auf den Bild- 
schirm zu zaubern. Diese Erläute- 
rungen werden in Deutsch gegeben, 


ACHTZIG BEFEHLE 
SIND MÖGLICH 


so daß eigentlich bei der Bedienung 
auf das Handbuch verzichtet wer- 
den kann, obwohl Adreva über 
achtzig (!) verschiedene Befehle ver- 
fügt. Sollte es dem Anwender zuviel 
sein, diese Anweisungen alle gleich- 
zeitig im Kopf zu haben: Für den 
normalen Alltagsbetrieb genügen 
die zwanzig wichtigsten Begriffe. 
Zu guter Letzt kann diese Adress- 
verwaltung (sofern man im Besitz 
des Programmes Text 64 derselben 
Firma ist) dazu benutzt werden, 
Formbriefe zu verschicken. Der 
Brief wird auf Text 64 geschrieben, 
wobei anstelle der Adresse bestimm- 
te Kürzel eingegeben werden, z.B. 

st für Straße (Adreva nimmt Befeh- 
le nur in Kleinschrift entgegen). 


Dann wird die Adressdatei eingela- 
den und die gewünschten Adressen 
werden von Adreva in den Form- 
brief eingesetzt. Hierbei wäre noch 
zu bemerken, daß zusätzlich zur 
Adresse auch die Möglichkeit vor- 
handen ist, einen kleinen Text ein- 
zugeben, z.B. ein persönliches Gruß- 
wort, so daß jedem Brief eine eige- 
ne Note gegeben werden kann. 

Soll die Adresseneingabe nun been- 
det werden, wird es noch einmal 
aufwendig: Zuerst muß die Adres- 
sendiskette mit >end< abgeschlos- 
sen werden. Ist dies erledigt, erfolgt 


DOPPELT UND DREICHFACH 
ABGESICHERT 


die Aufforderung, die Programm- 
diskette einzulegen. Von dieser 
wird nun wieder das Hauptmenü 
eingeladen, und auch diese Diskette 
wird mit >end< beschlossen. Ist 
auch dies beendet, kann nun auch 
das Hauptprogramm entnommen 
werden. Wird diese ganze Prozedur 
nicht vorgenommen, und einfach 
die Diskette aus dem Laufwerk ge- 
holt, wie das ja normalerweise ge- 
tan wird, ist die gesamte gespei- 
cherte Adressdatei beim Teufel. 
Im großen und ganzen handelt es 
sich bei Adreva um ein leicht ver- 
ständliches, übersichtliches Pro- 
amm. Lediglich die umständliche 


iskettenhandhabung und die dop- 

pelt und dreifach notwendige Ab- 
sicherung vor Datenverlusten stört. 
Torsten Seibt 
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TIPS & TRICKS 


WIE 


KOMPATIBEL 


IST 


KOMPATIBEL? 


Diese Frage stellt sich spä- 
testens dann, wenn man 
die gute alte VC 1541 ver- 
kauft und eines der neu- 
en Laufwerke von Com- 
modore 1570/1571 in 
Betrieb nimmt. 

Wieso? Es heißt doch 
überall ‚„‚vollkompatibel“. 
Also was soll dann diese 
Frage? Ganz einfach des- 
wegen, weil plötzlich ein 
Teil der Programme nicht 
mehr auf dem PC 128 im 
64’er Modus läuft. Of- 
fensichtlich ist also das 
DOS der 1541 nicht gleich 
dem DOS der neuen Lauf- 
werke. Das stimmt zwar, 
ist aber nicht so schlimm, 
wie man jetzt annehmen 
müßte. Der Haken bei. der 
Misere liegt nicht bei 
Commodore, sondern ganz 
einfach bei manchen Soft- 
warehäusern. Freche Be- 
hauptung? Nein. Denn es 
gibt eine Menge Software, 
welche mit einem Kopier- 
schutz versehen ist. Dies 
wäre auch weiter nicht 
schlimm, wenn nicht eini- 
ge „Autoren“ kräftig im 
DOS herumpfuschen und 
dort gewisse ‚„Geheim- 
nisse‘ abfragen und über- 
prüfen würden. Wenn auch 
nur ein einziges Bit nicht 
den richtigen Wert auf- 
weist, geht halt nichts 
mehr. Und wie kann dem 
abgeholfen werden? 
Richtig! Die 1541 muß 
wieder her. Zusätzlich ver- 
steht sich. Das wäre eine 
Lösung für bereits vorhan- 
dene Programme. Aber 
wie sieht es mit neuer Soft- 
ware aus? Da werden Pro- 
gramme angeboten für 
C64/128. Damit soll of- 
fenbar der Anschein er- 
weckt werden, daß derart 
angebotene Programme 
sowohl auf dem C 64 als 
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auch auf dem PC 128 lau- 
fen. Aber da meinen die 
Anbieter etwas Anderes 

als die Käufer. Denn die 
meisten dieser Programme 
laufen auf dem PC 128 
eben nur im C 64’er Modus 


Ort, oder zumindest in 
der Nähe, zu kaufen. 
Denn so hat man die 
Möglichkeit, diese Pro- 
gramme gleich an Ort 
und Stelle auf Lauffähig- 
keit zu überprüfen. 

Bei einer eventuellen 
Weigerung des Händlers 
sollte man sich einen 
anderen suchen. Und 
was, wenn bereits das 
berühmte Haar in der 
Suppe schwimmt? 

Nun, dann sollte man erst 
einmal versuchen, sich 
mit dem Verkäufer zu 
einigen. Geht das nicht, 
so kann man sich an den 
Verbraucherschutz wen- 
den. Solche Einrichtun- 
gen gibt es in fast allen 


PRAKTISCHE MERGE-ROUTINE 


Es ist eigentlich gar nicht 
schwer, Programme mit- 
einander zu verbinden. 
Benutzen Sie einfach die 
hier vorgestellte Routine 
und beachten Sie, daß die 
Zeilennummern des nach- 
geladenen Programms 
höher sind, als die des 
ersten Programms. 

Da die Speicherzeilen 43 
und 44 die Startadresse 
und die Zeilen 45 und 46 
die Endadressen Ihres 
Basicprogramms enthal- 
ten, müssen Sie nur das 
nachzuladende Pro- 
gramm ab der Endadres- 
se (—2) Ihres ersten Pro- 
grammes laden. Das erste 
Programm bleibt dabei 
unversehrt im Speicher. 


Geben Sie also folgendes 
ein: 


- PRINT PEEK (43), 
PEEK (44) (RETURN) 
Notieren Sie bitte die 


und dann auch nur in Ver- 
bindung mit der 1541. 
Eben wegen so „hochin- 
telligenten Kopierschüt- 
zern‘‘. Wie man sich dage- 
gen wehren oder schützen 
kann? Die bewährteste 
Methode dürfte wohl 
sein, die auerkorene Soft- 
ware nicht über ein Ver- 
sandhaus, sondern bei 
einem Fachhändler am 


22 Zahlen, die jetzt auf 
dem Bildschirm erschei- 
nen. 

POKE 43,(PEEK(45) 
+256xPEEK(46)—2) 
AND 255 (RETURN) 
POKE 44,(PEEK(45) 
+256xPEEK(46)—2) 
AND 256 (RETURN) 


Nun wird das Programm, 
das zusätzlich im Spei- 
cher stehen soll, auf die 
übliche Art und Weise 
geladen. 

Nach dem dies gesche- 
hen ist, muß der Urzu- 
stand der Zeiger wieder 
hergestellt werden: 


POKE 43, die erste no- 
tierte Zahl . 
POKE 44, die zweite 
notierte Zahl 


Nun können Sie das erste 
Programm und das ange- 
hängte zweite Programm 
problemlos LISTen. 
Martin Zech 


größeren Orten. Man 
sollte also nicht eindeu- 
tig gekennzeichnete Pro- 
gramme erst gar nicht 
kaufen, und zwar so lan- 
ge bis die Softwarehäuser 
begriffen haben, daß _ 
man mit fadenscheinigen 
Argumenten keine Ge- 
schäfte machen kann. 


Peter Basch 


TIP 


BUCHTEST 


Titel: 

Assembler mit dem C64 
Hüthing-Verlag 

Welcher Basic-Anwender 
liebäugelt nicht mit der 
Programmierung in Ma- 
schinensprache, findet 
aber keinen richtigen Ein- 
stieg dazu? Genau hier 
setzt H. Lemckes Buch 
ein. In einer klar verständ- 
lichen Sprache werden die 
Eigenschaften des 6510 
Prozessors erklärt und an- 
hand einer Anwendung, 
die sich über die Hälfte 
des Buches fortsetzt, 
verdeutlicht. 

Für die totalen Einsteiger, 
die noch nicht mit Assem- 
bler und Monitor gearbei- 
tet haben, existiert ein 
Minimonitor als Basic- 
lader. Dieser Monitor ist 
gleichzeitig das Beispiel, 
das im Verlauf des Buches 
Schritt für Schritt erwei- 
tert wird. 

Der Leser erfährt das 


"Wichtigste sowohl über 


Bitmanipulation (wichtig 
beispielsweise bei der 
Grafikprogrammierung), 
als auch über einige Be- 
triebssystemroutinen, die 
wichtig zur Spielepro- 
grammierung sind (Joy- 
stickport-Abfrage). 

Nach jedem Kapitel exi- 
stiert eine Erfolgskon- 
trolle in Form von kleine- 
ren Aufgaben, die nicht 
immer leicht sind und so 
den Leser noch tiefer in 
die Materie Assembler 
einführt. Natürlich sind für 
alle Aufgaben Lösungen 
vorhanden. 

Der Anhang bietet neben 
einem erfreulich ausführ- 
lichen Stichwortverzeich- 
nis die obligatorischen 
Dinge wie Opcodes, Zei- 
chensätze und eine Auf- 
zählung einiger Betriebs- 
systemroutinen. Leider 
sind auch in diesem Buch 
letztere wieder etwas zu 
kurz gekommen, es sind 
wirklich nur die allerwich- 
tigsten aufgeführt. 
Abschließend kann man 
sagen, daß dieses Buch ge- 
rade für einen Anfänger 
einen leichten Einstieg in 
die Assemblerprogrammie- 
rung darstellt. (15) 


—- - -„ qsspttl = nn 


C64 + VC20 POKE808, x 


RUN/STOP und RESTORE 


C64 + VC20 Tips & Tricks 


INPUT mit Komma 


x = 225 
x=237 freigeben 


blockieren 


Normalerweise erkennt der Computer ein Komma bzw. 
Doppelpunkt als Trennung zwischen zwei Eingaben. Will 
man als Eingabe Text mit Komma zulassen, so muß vor 
dem Text ein Anführungszeichen eingegeben werden, 
welches nicht mit aufgenommen wird. 


für VC 20 


x=128 blockieren 
x=112 freigeben 


C64 + VC20 POKE 775,x 


LISTSCHUTZ 


C64 + VC20 + C16 + PLUS4 Tastaturpuffer 


Tastaturpuffer 631-640 (1319-1328) 
Anzahl Zeichen im Puffer 198 (239) 
(Werte in Klammern für C14 und Plus4) 


x=200 Listschutz ein 


= 16 i 
" A. HERDIADR RU Bei jedem Tastendruck wird der entsprechende CHRS$S- 


Code (Handbuch S. 135) im Tastaturpuffer abgelegt und 
der Wert im 198 um 1 erhöht. Dies kann auch durch Po- 
ken der entsprechenden Werte direkt in die Speicherstel- 
len erreicht werden: 
p0631,76:p0632,105:p0633,13:p0198,3 (RETURN) 
(POAbk. für POKE). Es wird '1‘,'Shift/i‘ und ‘RETURN’ 
in den Tastäturpuffer gepoket. (Abk. für LIST). 


für VC20 


x=200 Listschutz ein 
x= 199 Listschutz aus 


Es Ban auch POKE 774, x verwendet werden. (aus mit 
x= 26 


C64 + VC20 Tips & Tricks 


Basicinterpreter ins RAM kop. 


C64 + VC20 LIST-Befehl 


Tricks zum LIST-Befehl: 


Will man den Basicinterpreter verändern, (z.B. deutsche 
Befehlswörter: PRINT zu DRUCK) so kann dies nur im 
veränderbaren RAM geschehen. h 
Kopierschleife: 

FOR 1=40960 TO 49151: 

POKE I, PEEK (I):NEXT 

Befehlsworte beginnen bei 41118 

Fehlermeldungen beg. bei 41374 


Abkürzung für LIST: I (L/Shift I) 
list listet alle Zeilen 
list 10 listet Zeile 10 
list 10— listet alle Zeilen ab 10 
list —10 listet alle Zeilen bis 10 
list 10-20 listet Zeilen 10-20 


Listing auf den Drucker: 
open 1,4:cmd! :list (RETURN) 
print#1:close 1 (RETURN) 
(mit open128,4:cmd128... doppelter Zeilenabstand) 


C64 + VC20 POKE 650,x 


Wiederholfunktion 
Für VC20 und C64 


C64 + VC20 2 mal Basic 


Zwei (oder mehr) Basicprogramme im Speicher zu halten 

und auch laufenzulassen ist mit folgendem Trick möglich: 

a) Programm 1 laden 

b) Basicanfang hinter Programm 1 setzen (Basicanfang in 
43/44 muß größer sein als Basicende in 45/46 

c) Programm 2 laden 

d) Basicanfang wieder auf alten Wert zurücksetzen. 

Basicanfang: ?peek (43)+256*peek (44) 

Basicende: ?peek (45)+256*peek (46) 


x=0 normal (nur Cursor- und Leertaste) 
x=64 aus (keine Taste mehr) 


x=128 für alle Tasten 


Setzt man vor das Inputkommando folgende POKES: 
POKE631,34:POKE 198,1:1NPUT... 

so wird das Anführungszeichen automatisch eingesetzt. 
POKE 631,34 legt den Code für Gänsefüßchen im TASTA- 
TURPUFFER ab und POKE 198,1 sagt dem Computer, 
daß dort ein Zeichen ist. Das wird dann bei nächster Ge- 
legenheit auf den Schirm gedruckt (während er auf Ein- 
gabe wartet. 


Anwendungsbeispiel: Automatische Umwandlung von Ma- 
schinenprogramme in Datazeilen. 


10 inputstart—,‚endadresse;a,e:zn = 1000 

30 Printchr$ (147)zndA;:fora=ato a+5 

50 if a>e then printchr$ (157) :print 
end::goto80 

60 print mid$(str$ (peek (a)) 2) ‚;:next 

70 printchr$ (157) :printa=a:e=e 
:zn=zn+10:g0t030 

80 poke631,19:poke632,13:poke633,13: 
poke634,13:poke198,4:end 

19 = CHRS$-Code für HOME, 13 für RETURN 


Listing ohne Zeilennummer: 
poke22,35 :list (RETURN) 


Listing als seg-File auf Floppy: 

(für Textverarbeitungssystem) 
open8,8,8,name,s,w:cmdß:list (RETURN) 
print#8:clos8 (RETURN) 


Listing in Farbe: 
Orem:*** (RETURN) 
(für * Steuerzeichen, z.B. CTRL/2) 
poke2055,13 (RETURN) 
Bei LIST werden alle Steuerzeichen ausgeführt. (CBM- 
Revue 5/85 S. 42 Listingschanger) 


Beispiel (C64): 

Programm 1 eingeben: 

1 printchr$ (147) :inputPrg.1 a=;a 

2 printchr$(147)p044,10 :goto1: 
poke631,19:poke632,13:poke198,2 
Basicanfang hochsetzen: 
poke44,10:poke10*256,0:new 
Programm 2 eingeben: 

1 printchr$ (147)Prg.2 a—quadrat=aß2 
2 wait 198,1:poke198,0:rem taste 

3 printchr$(147)p044 ,8:goto1: 
poke631,19:poke632,13:poke198,2 
Basicanfang heruntersetzen, starten: 
poke44,8:run 

Werte in 44 anpassen. 


Anwendung: 


Am Anfang des Programms muß POKE 808,225 stehen, 
dann kann das Programm, nachdem es diese Stelle erreicht 
hat, nicht mehr mit RUN/STOP RESTORE abgebrochen 
werden. 

Für x können auch andere Werte ausprobiert werden. 


Anwendung: 


Am Anfang des Programms muß POKE 775,200 stehen, 
dann kann das Programm, nachdem es diese Stelle erreicht 
hat, nicht mehr gelistet werden. 

Für x können auch andere Werte ausprobiert werden. 


VERLIEBTER COMPUTER 


Hat man den Interpreter ins RAM kopier, so kann man 
2.B. die READY-Meldung in LIEBE ändern: 

10 FOR 1=41848 TO 41853: } 

READ X:POKE 1,X:NEXT:POKE1,54 

20 DATE 76,73,69,66,69 ; 

(POKE 1,54 sagt dem Computer, daß der Interpreter im 
RAM ist) 

Man kann noch weitergehen: 

30 POKE 41840,13:POKE41841,147 

Jetzt wird nach jedem Fehler der Bildschirm gelöscht und 
es steht IN LIEBE links oben. 


Anwendung: 


Will man im Programm etwas (z.B. SPRITES) steuern, so 
schaltet man vorher durch POKE 650,128 die Wiederhol- 
funktion ein, dann kann man den Finger solange auf der 
Taste lassen, bis der Wert erreicht ist. 

Auch beim Füllen von REM-Zeilen mit * oder beim Er- 
stellen von Graphik kann es sehr hilfreich sein (gleich mal 
ausprobieren!). 


PEEK’s und POKE’s beim Commodore 128 PC 


Adresse: 208 
Speicherstelle für die Anzahl der im Tastaturpuffer 
abgelegten Zeichen (höchstens 10!!) 


Adresse: 842—851 

dies ist der eben erwähnte Tastaturpuffer. In diese 
Speicherstellen, beginnend ab 842 können bis zu 
maximal 10-CHR-Zeichen vorprogrammiert wer- 
den; die Anzahl dieser Zeichen muß in Adresse 208 
gePOKEt werden. 


Beispiel: 10 poke 842,67:poke843,66:poke844,77 


:poke 208,3 

Nach Eingabe von ‘RUN'‘ schreibt der C 128 ‘CBM'‘ 
auf den Bildschirm. Dieser Befehl eignet sich beson- 
ders zum Ausführen von Befehlen, die sonst nur im 
Direkt-Modus eingegeben werden, in einem Pro- 
gramm. (Siehe C 64 Adressen 631-640 und 
Adresse 198.) 


Beispiel: poke 208,0:wait208,1 läßt den C 128 auf 
einen beliebigen Tastendruck warten, um dann mit 
der Abarbeitung der nächsten Programmzeile fort- 
zufahren. 

(Siehe C 64 poke 198,0:wait198,1) 


Adresse: 236 
Aktuelle CURSOR-Spalte (beim C 64 Adr. 211) 


Adresse: 235 
Aktuelle CURSOR-Zeile (beim C 64 Adr. 214) 


Beispiel: 5 scnclr 
10 poke235,15:poke236,12:?“ 
COMMODORE-WELT“ 
zeigt den Text etwa in der Mitte des Bildschirms. 
Im Gegensatz zum C 64 entfällt hier der hinter den 
POKESs folgende SYS 58640 oder 58732. Allerdings 
ist im BASIC 7.0 diese Routine im CHAR-Befehl 
Bee gelöst. Aber wem die POKErei Spaß 
macht... 


Adresse: 247 
Umschaltung zwischen Groß-/Kleinschreibung 
durch Commodore/Shift. 


Der Normal-Inhalt (PEEK) dieser Speicherstelle ist 
0. Wenn Sie jedoch eine Zahl über 127 in diese 
Adresse POKEn, dann bleibt diese Umschaltung ge- 


sperrt, und zwar so lange, bis Sie mit poke 247,0 
wieder den Normal-Zustand herstellen. 


Adresse: 774 \ 
LIST-Routine beim C 128. Der Normal-PEEK-Wert 
beträgt hier 81. 


Hier nun verschiedene POKEs, die im BASIC-Pro- 
gramm in den ersten Zeilen untergebracht, nach 
dem Starten des Programmes einen effektvollen 
Listschutz bieten: 


poke 774,59 
nach LIST erscheinen nur die Zeilennummern, 
aber kein Zeilentext. 
poke 774,128 | 

ringt eine recht interessante Blockgrafik auf den 
Bildschirm. 

oke 774,156 

istet zwar das Programm normal, aber der Zeilen- 
text wird derart verdreht und durcheinander dar- 
gestellt, daß beim besten Willen niemand etwas 
damit anfangen kann. 
poke 774,64 
zeigt nur die 1. Zeilennummer und hält den Bild- 
schirm an, ohne auf eine Taste zu reagieren, außer 
auf RUN/STOP-RESTORE. 
poke 774,81 
schaltet jeden vorher erwähnten Listschutz wieder 
nn Das Programm läßt sich nun wieder normal 
isten. 


Wohlgemerkt, alle vorher erwähnten LIST-Schutz- 
POKES beeinflussen in keiner Weise den regulären 
Ablauf des Programmes. 


Adresse: 2594 Tastaturfunktion 

Hier ist der Normalwert 128, d.h. alle Tasten haben 
eine Wiederhol-Funktion beim C 128, was man 
schon lobend herausheben sollte. 


Möchte sich einer gerne an die C 64-Zeit zurücker- 
innern (nur die CURSOR-, die DEL-, INST- und 
die SPACE-Taste konnten wiederholt werden), so 
möge er bitte eingeben: poke 2594,0. 

Ist ihm jedoch jegliche Tastenwiederholmöglichkeit 
zuwider, dann heißt es: poke 2594,64. 


Nachhall: 

Adresse: 21 

Flag für Prompter in einer INPUT-Anweisung. 
Prompter ist das wenig schöne Fragezeichen, das 
unweigerlich bei jedem INPUT-Befehl erscheint. 
Durch folgende Routine kann man jedoch das 
Fragezeichen ausschalten: 

poke21 ‚64: inputa$:poke21,0:print 


Wichtig hierbei ist, nach jedem poke 21,64 nach 
dem INPUT-Befehl, den PEEK-Wert wieder auf O 
zu setzen (poke21,0), da der Computer sonst auch 
alle weiteren Befehle und Eingaben auch als 
INPUT-Eingabe wertet. Auch das “print‘ oder 
“printchr$(13)‘‘ ist wichtig, um in der nächsten 
Zeile fortfahren zu können, da der Cursor sonst in 
der gerade aktuellen INPUT-Zeile bleibt. 

Harald Beiler 


Die nächste 
COMMODORE WELT 
ab 26.3. an Ihrem Kiosk! 


128 PC: 


WARUM TEURE 
TEXT-PROGRAMME 
KAUFEN 


Kommerzielle Textverarbeitungsprogramme sind so komfortabel, daß man 
sehr lange braucht, um sie bedienen zu können. Außerdem benötigen sie sehr viel 
Speicherplatz. Dieses Programm benötigt nur ca. 7,5 kByte Speicher und ist 
trotzdem recht schnell und man braucht recht wenig Zeit, um dieses Programm 
bedienen zu können. Es enthält alle notwendigen Routinen, auch Briefköpfe 


Um mit diesem Textpro- 
gramm arbeiten zu kön- 
nen, brauchen Sie an 
Hardware: den PC 128, 
einen 80-Zeichen-Moni- 
tor, einen Drucker Rite- 
man F+ oder einen 
Epson oder einen kom- 
atiblen. Ich benutze den 
iteman F+ mit Wiese- 
mann Interface 92008/G 
und 8 kB Buffer. Eine 
Floppy ist unbedingt er- 
forderlich. Es sollte schon 
die VC 1571 sein, die 
1570 geht natürlich auch. 
Auf die 1541 sollte man 
aus den bekannten Grün- 
den verzichten, aber auch 
mit dieser läuft das Pro- 
gramm. Als Monitor 
kommt der 1901 von 


ES MUSS EIN 80 
ZEICHEN MONITOR 
SEIN! 


Commodore in Betracht. 


Falls Sie diesen nicht ha- 
ben, geht auch ein mono- 
chromer (ich verwende 
z.B. den Sanyo bernstein- 
farben). Der 1702 ist für 
die 80 Zeichendarstellung 
‚nicht zu gebrauchen, die 
Auflösung ist einfach zu 
schlecht. Sie können ei- 
gentlich jeden Monitor 
mit Videoeingang und ei- 
.ner Auflösung von wenig- 
stens 18 MHz anschlie- 
ßen. Dazu müssen Sie sich 
. ein Kabel anfertigen, es 
sollte abgeschirmt sein 
(Koaxialkabel 75 Ohm). 
An das eine Ende müssen 
Sie ein dem Monitor ent- 
sprechenden Stecker 
(meist Cinch-Norm) anlö- 


20 


können erstellt werden. 


ten oder anlöten lassen. 
Masse an die äußere und 
die Seele des Kabels an 
die mittlere Fahne an- 
schließen. An der Rück- 
seite des Rechners finden 
Sie neben dem Unserport 
eine 9polige Buchse. 

Aus dieser Buchse müssen 
Sie sich das Videosignal 
herausholen. Dies ge- 
schieht, indem Sie das 
andere Ende des Kabels, 


über den richtigen Stek- 
ker, an den rechten obe- 
ren Stift (Abschirmung) 
und die Seele an den zwei- 
ten Stift von rechts in 

der unteren Stiftreihe an- 
löten oder wie gesagt 
„lassen“, Ä 
(Auf der Rückseite des 
Rechners gesehen) 
Soweit zur Hardware. 
Tippen Sie das Programm 
erst einmal so ab, wie Sie 


esim Listing sehen: Also 
auch den Briefkopf mit 
meinen Daten. Erst wenn 
alles richtig läuft, sollten 
Sie Ihren eigenen Brief- 
kopf oder Absenderzeile 
entwerfen. In den Zeilen 
100 und 1120 finden Sie 
in spitzen Klammern ei- 
nen tiefgestellten Strich, 
dieser Strich soll der Pfeil 
nach links sein. Mein Inter- 
face begreift das nie! 
Setzen wir mal voraus, Sie 
haben alles richtig abge- 
tippt und starten mit 
“RUN, so sollte eine re- 
verse Zeile, mit den bei- 
den Hauptbefehlen (Pfeil 
nach links zum Menü) 
und (Asterix oder Stern 
für Zeilenabschluß und 
auch Leerzeile) erscheinen. 
Die zweite Zeile zeigt Ih- 
nen, von wo bis wo Sie 
schreiben können. 

Die dritte Zeile ist ein 
Auswahlmenü. Sie kön- 
nen wählen zwischen 
Briefkopf, Absenderzeile 
oder neutralem Text. Ha- 
ben Sie ‘A“ oder ‘N‘ ge- 
wählt, so werden Sie auf- 
gefordert, eine Schriftart 
zu wählen. 


UMFANGREICHES 
MENÜ 


Haben Sie ‘B‘ gewählt, 

so wird ein Teil des Brief- 
kopfes gedruckt und der 
Rechner fragt Sie nach 
Anrede, Titel, Name und 
Adresse sowie Bezugs- 
datum, Zeichen und Tages- 
datum. Nach Eingabe des 
gewünschten Menüs kann 
auch hier die Schriftart ge- 
wählt werden. Allerdings 
geht hier die komprimier- 
te Schrift nicht. 

Die komprimierte Schrift 
ist für Postkarten im 
Querformat gedacht, da- 
bei lassen sich allerdings 
auch nur 65 Zeichen pro 
Zeile drucken. Wählen Sie 
nun bitte Ihre Schriftart 
aus. 

Jetzt erscheint das Haupt- 
menü, mit den eigentli- 
chen Routinen zur Text- 
verarbeitung. 


Menüpunkt 1 

‘Text eingeben‘ 

Es können Texte ge- 
schrieben und auch ange- 
hängt werden, ein Unter- 


kt un nnreim eher nennen nme nenn nennen nn 


SERVICE 


menü läßt Sie das Ge- 
wünschte auswählen. 
Wenn Sie an einen beste- 
henden Text (z.B. von 
der Floppy eingeladen) 
etwas anhängen wollen, 
so müssen Sie die erste 
Textzeile mit dem 
Asterix abschließen. Alle 
nachfolgenden Zeilen 
werden automatisch ab- 
geschlossen. Die even- 
tuelle Worttrennung müs- 
sen Sie allerdings selbst 
vornehmen. So werden 
die letzten 13 Zeichen 
akustisch unterstützt und 
somit angezeigt, daß Sie 
sich langsam über eine 
Worttrennung Gedanken 
machen sollten. Sollte bis 
zum Zeilenende noch 
Platz sein, so können Sie 
diesen mit der Space- 
Taste auffüllen oder mit 

' dem Asterix in die näch- 
ste Zeile springen. Vor 
dem Hochkommamodus 
brauchen Sie keine Angst 
zu haben, denn falls Sie 
das “Gänsefüßchen‘ ein- 
geben, wird es sofort in 
ein Apostroph (Shift 7) 
umgewandelt. Mit dem 
Pfeil nach links kommen 
Sie wieder in das Haupt- 
menü zurück. 


Menüpunkt 2 

‘Text korrigieren‘ 

Unter diesem Menüpunkt 
können Zeilen gelöscht 
und/oder eingefügt wer- 
den. Es wird nach der Zei- 
lennummer gefragt, wel- 
che zur Bearbeitung in 
Frage kommt. Die Zeilen- 
nummern sind revers auf 
der linken Bildschirmseite 
* dargestellt. Mit den +/— 
Tasten können Sie den 
Text hoch- oder herunter- 
scrollen, insgesamt 660 
Zeilen. Das sind ca. 10 
DIN A4-Seiten. Auch kön- 
nen Sie ganze Absätze 
verschieben. Auch hier 
müssen Sie die Zeilen- 
nummern vom Absatzan- 
fang und -ende sowie die 
Zielnummer eingeben. 
Dabei wird der Ursprung- 
block noch nicht gelöscht. 
Erst wenn die Frage Block 
1 löschen mit ja beant- 
wortet wurde, wird dieser 
gelöscht. Auf eine Ände- 
rungsroutine wurde ver- 
zichtet, da man ja Zeilen 
einfügen (es können ma- 


ximal 60 Zeichen in eine 
Zeile eingefügt werden) 
und auch löschen kann. 
Aus diesem Untermenü 
kommt man ebenfalls wie- 
der mit dem Pfeil nach 
links in das Hauptmenü. 
Zeilen einfügen, auch Leer- 
zeilen, werden mit dem 
Pfeil nach links abgeschlos- 
sen, Zeilen löschen sowie 


Blocktausch, mit RETURN. 


Zeilennummern werden 
ebenfalls mit RETURN 
bestätigt. 


Menüpunkt 3 

‘Text drucken‘ 

Nach Anwahl dieses Punk- 
tes wird sofort der ge- 
samte im Speicher befind- 
liche Text ausgedruckt, 
und zwar genauso, wie er 
auf dem Bildschirm einge- 
geben wurde. Es bleibt 

ein Heftrand von 8 Zei- 
chen frei. Der Text kann 
mehrfach, auf j/n Abfrage, 
gedruckt werden. Bei ‘n‘ 
zurück in das Hauptmenü. 


Menüpunkt 4 

‘Text speichern‘ 

Hier wird sofort nach Ein- 
gabe des Dateinamens 

der Text auf Disk abge- 
speichert. Sollte der Datei- 
name bereits bestehen, 

so kann er überschrieben 
werden, erst auf Nachfra- 
ge des Rechners natürlich. 


Menüpunkt 5 

‘Text einlesen‘ 

Hier können Sie Texte 
von der Floppy einlesen 
und weiteren Text anhän- 
gen etc. ‚ 


Menüpunkt 6 
‘Programmende‘ 

Dazu braucht wohl nichts 
gesagt zu werden. 


Menüpunkt 7 

‘Zurück‘ 

Durch Wahl dieses Punk- 
tes gelangen Sie an den 
Anfang des Programmes 
zurück. Sie sind dadurch 
in der Lage, andere Adres- 
sen oder auch andere 
Schriftarten zu wählen. 
Es können somit soge- 
nannte Rundbriefe erstellt 
werden. 

So und nun viel Spaß 
beim Schreiben. 
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10 rem textverarbeitung ====128 
20 rem (p) 02.86 cbm + cw team ts = 
30 rem ====-=-=-=-=-=--22= == 222 === 
40 rem (c) 11/85 = 
50 rem by peter basch = 
60 rem = 
70 rem version 7.0 80z/ascii = 
71 rem 128 pc+1541/1570/1571 = 
72 rem =-====-=--=2-.=-2-.22 2220202222222 
80 fast:printchr$ (14) :be$=chr$ (7) :p 


$=chr$ (46) :open1,4,2:open3,4,1:open 
4,4,7 

90 dimz$ (660) ,‚e$(61) :c1$=chr$ (147): 
cd$=chr$ (17) :rn$=chr$ (18) :rf$=chr$( 
146) :rq$=chr$ (145) :rb$=chr$ (157) :sp 
$=chr$ (32) :ec$=chr$ (27) :in$=chr$ (27 
)+chr$ (64) 

100 printcl$rn$'" Peter's Text fuer 

128er Ce > zum Mn Uen nen 
IE LEOTEE U LOL NR 
066 :printp$; :next :print'"<Zeilenende 
":printec$'t" 

110 printcl$"..mit Briefkopf = <B 

> mit Absenderzeile = < A »..oder 

Neutral = < N >":print#1,in$; 

120 gety$:ify$="'"then120 

130 ify$="n'"then650 

140 ify$="b'"then280 

ify$='"a'then260 

goto 120 

y$='b" 

printcl1$s?Schrift:?.%.<"" PN"? Plca 
RR RR S I’I-Ieallei . sa. 8. KR 3 Komprim: 
iert. .i%L < 5) Schoen " 

190 getb$:ifb$="'"then190 

200 ify$="b"andb$='"k'"thenprint'Kein 
e komprimierte Schrift moeglich":go 
to190 


210 ifb$="p'" then return 

220 ifb$='k" thenprint#1,ec$;chr$ (1 
5); :return 

230 ifb$="i" thenprint#1,ec$;chr$(5 
2) ;:return 

240 ifb$="s" thenprint#1,ec$;chr$(8 


8) ;chr$ (1) ;:return 

250 goto190 

260 gosub180 

270 print#1,spc (8) "Peter Basch":pri 
nt#1,spc(8) 'Faerberstr. 27'":print#l 
‚spc (8) "8998 Lindenberg" :print#1,sp 
c(8)"tel. 08381/6573":fori=1to4:pri 
nt#1:nexti:g0t0660 


280 print:printrn$' Adressen eingab 

ei" PrINnt 

290: InPUurR. -Anredeos sa. anna "88 

300. inpub?. DIES .75.2, 2,8% ";k$ 
INPRUEHSHNAameR Wi Be "sn$ 


TEXTVERARBEITUNG 


320: Input" ‚Strasser... ., SCH 
SION LHPUL SE PEZNFOTE. N 0, Rd® 
340 input"..Ihr..Datum...... "se$ 
350 ife$=""thene$=".......... Mr 

360 input"..uns. Zeichen....";f$ 
370 iff$=""thenf$="..." 

980 input’, ..Datumi .. ia; g$ 
390 InABEt. ANSAGE Ne “sn$ 
400 print#3, chr$ (14) "mann. 20. 


410 print#3,ec$;chr$ (87) ;chr$(0); 
420 print#3,ec$;chr$(80); 

430 print#3,ec$;chr$(69) ;chr$ (14) "p 
eter: DASCHau nr es en dlig 
be" 

440 print#3,ec$;chr$(70); 

450 print#3,ec$;chr$(20) "faerberstr 
NA da 

460 print#3,ec$;chr$(15)spc (87) "ama 
teurradiostation" 

470 print#3,ec$;chr$ (65) ;chr$ (5) 
480 print#3,ec$;chr$(45) ;chr$ (1); 
490 print#3,"8998 lindenberg" 

500 print#3,ec$;chr$(45) ;chr$(0); 
510 print#3,ec$;chr$ (15) ;spc (111) "O0 
rtsverband Lindau/B'":print#3 

520 print#3,"tel. 08381/6573"; 

530 print#3,ec$;chr$ (69) spc (57) "dok 
ERST eig BER 

540 print#3,ec$;chr$ (70) 

550 print#3,ec$;chr$ (83) ;chr$ (1): 
560 print#3,'"bank krspk 7988 wangen 
blz 65052020 ktnr. 938866'":print#3 
570 print#3,ec$;chr$ (84); 

580 print#3,chr$(18) ;chr$ (14) "===== 
";print# 3,in$ 

590 fori=1to2:print#3,"":print#3,ec 
$;chr$ (74) ;chr$(i) ; :nexti:print#4,i 
n$; 

- 600 gosub170 

610 print#4,spc (8) a$:print#4,spc (8) 
k$:print#4,spc (8)n$:print#4,spc(8)c 
$:print#4,spc (8)d$:fori=1to3:print# 
4:nexti 

620 fori=1t080:print#1,chr$ (45); :ne 
xti 


630 print#1,ec$;chr$(77):;:" Ihr Schr 
eiben vom: ";e$;"...unser Zeichen. 
VASEN au line Datum :":g$ 


640 print#1:print#1:print#1:print#4 
‚spc(8)h$:print#4,ec$;chr$(70) :goto 
1890 


650 gosub180 

660 goto 1890 

670 printchr$ (175) +rb$; 

680 get t$:if t$=""then 680 

690 t=asc(t$) :ift=20andw=landz<=1an 
22 


dlen(tt$) =Othent$="": :printc1$; 
g0t0670 

700 ifw=2andt=20andlen(tt$)=Othent$ 
='"'".g0t0680 

710 ift>13andt<200rt >20andt<320ort >1 
ER KIEL LOO ENDE 
g0t0680 

720 ift=95thenreturn 

730 ift=42thentt=66 :90t01060 

740 ift=13 then670 

ift=34thent$="'" 
ift<>20andlen(t$)-ithenprintt$; 
ift< >2090t0870 

iflen(tt$) =1then810 
ifw=1then800 
tt$=left$(tt$,1len(tt$)-1) :print 
chr$ (20) ; :90t0670 

810 1=1-len(tt$) :tt$="":printsp$rb$ 
chr$ (20) ; :ifw=1thenz$(z) ="":z=z-1l:i 
fz=0thenz=1 

820 ifw=1thentt$=z$ (z) 

830 ifw=Othene=e-1: BER ED. 
840 ifw=Othentt$=e$(e) 
ifw=2thentt$="":g0t0680 
return 

iflen(t$) >1then930 
ifg=Oandlen(tt$) >u-3andt$=" 
en920 

tt$=tt$+t$ 

iflen(tt$) >53thenprintbe$; 
iflen(tt$)<u+2then670 
goto860 

xl=len(t$) :fors=1toxl:tr$=mid$( 
t$,s,1) :tt$=tt$+tr$:printtr$; : Ik=le 
n(tt$) 

940 iflk>u+lithent$="":.g0t0880 

950 next :t$="":9g0t0880 

960 w=1:print:printcl$"Weiterschrei 


:z=1: 


"th 


ben ";rn$" (1) "rf$" oder neuen Tex 
t .eingeben ";rn$" (2) "rf$:print 
970 getx$:x=val(x$) :ifx<lorx>2then 


70 

980 onxgoto990,1090 

990 printcl$rg$; 

1000 2$ (z) =tt$:z=z+1:tt$="":g0sub67 
0 


1010 ift$=chr$ (95) thenz$ (z) =tt$:tt$ 
="":t$="":w=0:return 

1020 g0t01000 

1030 printcl$ra$; 

1040 forx=1toz:z$(z)="":z=1:90s5Uub67 
0 

1050 ift$=chr$ (95) thenz$ (zZ) =tt$:tt$ 
="",t$="'":w=0:return 

1060 z$ (z) =tt$:z=z+1:tt$="":print". 
..Zeile ";z-1:g90sub670 

1070 ift$=chr$ (95) thenz$ (z) =tt$:tt$ 
='"":t$="":.w=0:return 


; 


TEXTVERARBEITUNG 


1080 goto1060 

1090 u=64:90t01030 

1100 a=1:b=17 

1110 printc1$:c=b-a:forx=atob:print 
rn$;x;rb$" "rf$;tab(6) ;z$ (x) :next:p 


rintcd$ 

1120 printrn$"..(1) Loeschen...(e) 
Einfuegen...( + -— ) Blaettern...(b) 
Blocktausch...(*-) Ende " 


1130 getk$:ifk$='""then1130 

1140 ifk$="1'"then1230 

1150 ifk$='"e'"then1260 

1160 ifk$="b'"then1390 

1170 ifk$="-"thena=a-1-c:b=atc:ifa< 
ithena=1:b=a+c 

1180 ifk$="-"then1110 

1190 ifk$="+"thena=b+1:b=b+1+c:ifb+ 
1+c >660thenb=660:: a=b-c 

1200 ifk$="+'"then1110 

1210 ifk$=chr$ (95) thena=0:b=0:retur 


n 

1220 goto1110 

1230 printcd$'Welche Zeile soll gel 
oescht werden?...... O=Irrtum ";:inp 
ut" Zeilen-Nr. ";kk:ifkk=0Othen1110 
1240 ifkk>zthenprintra$rqa$sra$sra$srg$ 
ra$rq$:goto1230 

1250 forx=kktoz:z$ (x) =z$(x+1) :next: 
z$(z)="":z=z-1:kk=0:g0tol1l10 

1260 printcd$'"Vor welcher Zeile sol 
l eingefuegt werden? (O=Zurueck) "; 
:input" Zeilen-Nr. ";kk:ifkk>zthenp 
rintrg$rqa$:gotol260 

1270 ifkk=0Othenil110 . 

1280 w=O:e=0:printcl$"Es koennen ma 
ximal 60 Zeichen eingefuegt werden! 
":sleepl 

1290 forx=1t0660:next:printcl$:e=1: 
ifz+12=660then1110 

1300 gosub670:ift$=chr$ (95) thene$(e 
)=tt$:tt$='":t$="'":gotol360 

1310 e$(e) =tt$:tt$="":t$="":e=e+tl:i 
fe=61then1360 

1320 ifz+te=660g90t01360 

1330 gosub670 

1340 ift$=chr$(95)thene$(e)=-tt$:tt$ 
="",t$="'":9g0t01360 

1350 goto1l310 

1360 z=z+te:forx=ztokkte-1step-1:z$( 
x)=z$(x-e) :next 

1370 £=0:forx=kktokk+te-1:f=f+1:z$ (x 
)=e$(f) :e$(f)="":next:kk=0:e=1 

1380 goto1110 

1390 printcd$'"Von welcher Zeile ";: 
input"Zeilen-Nr. ";aa$:ifaa$=chr$ (9 
5)theni110 

1400 aa=val(aa$) :ifaa<lorab>zthenpr 
intrg$rq$:g0ot0o1390 


nnd 


1410 print"bis zu welcher Zeile ";: 
input"Zeilen-Nr. ":;bb:ifbb<aaorbb>z 
thenprintrqa$rqa$:gotol410 

1420 print'"Vor welcher Zeile soll e 
ingefuegt werden ?"; :input'Zeilen-N 
r. ":;:cc:ifcec<lorcc>zthenprintrga$rga$ 
:goto1420 

1430 dd=bb+1-aa:ifdd>60thenprint'"Bl 
ock zu gross":goto1110 

1440 e=0:e$="":ford=aatobb:e=e+tl:e$ 
(e)=z$ (d) :next 

1450 z=z+dd+1:ford=ztocc+tdd-1step-i1 
:z$ (d) =z$ (d-dd) :next:d=0:e=0 

1460 ford=cctocc+dd-1:e=e+1:z$(d)=e 
$(e) :next:x=0 

1470 print'"Block 1 loeschen ":rn$'" 
IAR TR 

1480 getx$:ifx$=""then1480 

1490 ifx$="j'"then1520 

1500 ifx$="n'"then1110 

1510 goto1480 

1520 forx=aatoz:z$ (x) =z$(x+dd) :next 
:z=z-dd:goto1100 
1530 printcl$rn$' 
1540 gosub1650 
1550 xx=0 

1560 forx=atob: N chr$ (9) ;:908 
ub1630 :ma=ma+t1:ifma/t=int (ma/t)then 
xx=xx+tl 

1570 next 

1580 print"Noch ein Bruch. 
printrqg$rg$:xx=0:ma=0 

1590 gety$:ify$=""then1590 
1600 ify$="j"thenprintrg$rg$:ma=0:9 
oto1540 

1610 ify$="n"thenx$="":y$="":qg=0:re 
turn 

1620 g0t01590 

1630 forzz=1tolen(z$(x)) 


Ausdruck 


(FR 


:ip$=mid$(z 


(EZ 

1640 print#4,ip$; :nextzz:print#4:re 
turn 

1650 t=60:p=8:a$='0" 

1660 a$='"0":a=val(a$) :ifa=Othena=l: 


b=z:g0t01680 

1670 ifa<Oora>zthenprintra$rasrq$:g 
oto1660 

1680 return 

1690 printcl$: open15, 8715 

1700 print#15,"i0":gosub1820: input" 
Dateiname: ";cb$:db$='"0:"+cb$+",s,w" 
1710 goto1840 

1720 open2,8,2,db$:print''Datei ";rn 
$ cb$ rf$;'" wird gespeichert." 

1730 print#2,z:print#2,u:forx=1toz: 
ifz$(x)=""thenz$(x)=chr$ (95) 

1740 print#2,chr$ (34) ;z$ (x) :ifz$(x) 
=chr$ (95)thenz$ (x) ="'" 
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TEXTVERARBEITUNG 


1750 next:close2:closelä5:return 
1760 printc1$:0pen15.8,15:print#15, 
hc di 0 Ta \ 

1770 gosub1820:input"Dateiname: ";c 
b$:db$="0:"+cb$+",s,r" 

1780 gosub1820:close2:0open2,8,2,db$ 
:gosubl820:printcd$"Datei ":rn$cb$r 
f$;" wird eingelesen." 

1790. input#2,z:input#2 ,u:forx=1toz 
1800 input#2,2z$ (x) :ifz$(x)=chr$ (95) 
thenz$ (x) ="" 

1810 next:close2:closel5:return 
1820 input#15,v$,w$,x$,y$:ifval(v$) 

<>Othenprintv$,w$,x$,y$ 

1830 return 

1840 open2,8,2,db$:gosub1820:ifval( 

v$)<>63thenclose2:print#15,"s0:"+cb 
$:90t01720 

1850 ifval(v$)=63thenprint'"Datei ue 
berschreiben ";rn$" j/n ? " 

1860 getz$: ifz$=""then1860 

1870 ifz$="n"thenclose2:closel5:got 
01690 

1880 ifz$="j"thenclose2:print#15,'"s 
0:"+cb$:g0sub1820:90t01720 

1890 x$="":x=0:q=0:w=0:printci$chr$ 
(14) 

1900 printspc(3l)rn$" Menue ":p 

rint 

1910 printspc(18)rn$"-1-":rf$" Text 
eingeben....... "srns"-2-";rf$" Tex 
t korrigieren':print 

1920 printspc (i8)rn$"-3-";:rf$'" Text 
drucken. “una Pzrns"-4-",rf$" Tex 
t speichern":print 

1930 printspc(18)rn$"-5-";rf$" Text 
einlesen....... "srn$'"-6-";rf$" Pro 

grammende":print 

1940 printspc(18)rn$"-7-";:rf$" Zuru 

SCHEN Eee Waehlen Sie ";rn$" 
1327 SBrint 

1950 print:printspc(18) "Freier Spei 
cher = ";:printfre (0) "Bytes" 

1960 getx$:x=val(x$) :ifx<lorx>7then 
1960 

1970 ifx=6thenprintchr$(19) :chr$ (19 
);cl$:closel:close3:close4:end 

1980 ifx=7 goto 110 

onxgosub960,1100,1530,1690,176 


g0t01890 

rem textverarbeitung ==== 
rem 122365 bytes memory === 
rem 006975 bytes program 
rem 002303 bytes variables=== 
rem 000000 bytes arrays === 
rem 000000 bytes strings == 
rem 050837 bytes free (0) === 


2080 rem 064256 bytes free (1) 


EEE ET N RE TEE TEE SE EEE TREE ET EEE ATTERETATEN 


HEX-DUMP: .. 
PER RNEFTENET NN EERELGNDUNANDRZE SAN BE EDER LEN WR ORTEN 
Hex-Dump ist ein Tool für alle diejenigen, die zwar 
keinen geeigneten Maschinensprache-Monitor besit- 
zen, aber trotzdem einmal Maschinenprogramme 
im hexadezimalen Format untersuchen wollen, wo- 
bei man sich natürlich nicht auf Programme be- 
schränken muß. Hex-Dump ist in der Lage, beliebi- 
ge Speicherinhalte in dem für Monitor üblichen For- 
mat auf Bildschirm und Drucker (!) anzuzeigen. 
Dabei werden neben der (hexadezimalen) Basis- 
adresse die acht folgenden Speicherinhalte im Hex- 
Format — jeweils durch ein Space voneinander ge- 
trennt — angezeigt. Zusätzlich erscheinen sie am 
rechten Bildrand, innerhalb der Anführungszeichen 
im Klartext; Steuerzeichen werden hier ignoriert. 
Im selben Format erfolgt auch — sofern Sie das 
wünschen — die Druckausgabe. Der im Listing ver- 
wendete Code CHR$(14) erzeugt auf einem MPS 
801/803 Breitschrift; Sie können diesen Code gef. 
anpassen oder auch ganz weglassen. Sowohl die 
Bildschirm- als auch die Druckausgabe erfolgt we- 
gen der besseren Lesbarkeit in Kleinschrift, aber 
auch das können Sie ja nach Belieben ändern. 
Während des Dumps können Sie diesen mit ver- 
schiedenen Tasten steuern; Näheres dazu siehe 
Bedienungsanleitung bzw. Listing. In der vorliegen- 
den Form ist Hex-Dump in der Lage, Speicherin- 
halte hexadezimal auszugeben; bei Bedarf ist es 
aber ohne große Schwierigkeiten möglich, durch 
entsprechende Erweiterungen auch hexadezimale 
Eingaben zu ermöglichen, wie dies ja bereits bei 
der Eingabe von Anfangs- und Endadresse realisiert 
ist. Eine geeignete Routine befindet sich ab 
Zeile 10000ff. 
Hex-Dump entwickelt eine für BASIC außerge- 
wöhnliche Geschwindigkeit: 4 kByte — das sind 
über fünfhundert Bildschirmzeilen — werden in 
weniger als fünf Minuten ausgegeben (also etwa 
zwei Zeilen pro Sekunde!); bei Druckereinsatz na- 
türlich der Druckgeschwindigkeit entsprechend 
langsamer. Diese Geschwindigkeit wird z.T. da- 
durch erreicht, daß in zeitkritischen Programmtei- 
len weitestgehend Konstanten verwendet werden, 
die schneller als ‚‚Zahlen‘‘ verarbeitet werden 
(siehe Variablenliste und Listing). 
Wollen Sie von einem im BASIC-Speicherbereich 
liegenden Maschinenprogramm einen Ausdruck 
im Hex-Format bekommen, können Sie auch 
hierfür Hex-Dump verwenden, obwohl es ja norma- 
lerweise ebenfalls im BASIC-Bereich liegt. Ver- 
schieben Sie dazu einfach den für BASIC zur Ver- 
fügung stehenden Speicherbereich. Um ihn bei- 
spielsweise nach $C000 (= dez. 49152) zu legen, 
geben Sie bitte vor dem Laden (!!!) im Direktmo- 
dus folgendes ein: 

a 44,192:POKE 56,208:POKE 49152,0 


Danach können Sie Hex-Dump wie gewohnt laden 
und starten. Bitte beachten Sie, daß dadurch ein 
evtl. ab $C000 stehendes Maschinenprogramm 
überschrieben wird. Wie Sie sehen, ist Hex-Dump 
also recht anpassungsfähig. 

Bitte lesen Sie weiter auf Seite 27 


Hex<—-Dump 4 
i8 rem hex-dump zeeeemesemeeceneensd 
28 rem (c) 81/85 commodore welt = 
2329 reM 7777735222222 S5S52E SS mmemsasene 
42 rem (p) 19/85 by 


5 rem andreas meissner 

68 rem walldorf 

?& rem version 2.8 49z/ascii 
89 rem c-64 + 1539/1541/1571 
9 rem ====5=,-5==2=5222ESS2S 22 S2Snsocems 
rem KKRRKREKRRR grafikzeichen * 
gi$=chr$(119):92$=chr$(199) 

128 93$=chr&$(998) :94$=chr$ (186) 

1389 95$=chr$(111):95$=chr$(188) 
97$=chr$(199) :98$=chr$(147) 
gP$=chr$(165):g9a$=chr$t112) 
si$=chr&$ (932) :gb$=chr$(183) 
gc$=chr$(239):gd$=chr$(117) 
zi$=chr$(995) : ge#=chr$(185) 
gt$=chr$(1968):99$=chr$(197) 
gh$=chr&$(113) 

vom KRRRRRRRTRRRKRKRKTKRRTRKRRNR 
rem * zeigt speicherinhalte r 
rem * im hexadezimalen format % 
rem KRRKKKKKKRRKKRRRKKRKRKKKTTR RE 
rem X%%%%* variablendefinition * 
dimhx$(15),jns$ti) 
278 tori=@tolS5:hx$ti) 
9)*7)ı next 

288 jn$(@)=chr&(18) +"ja"+chr$(146) + 
" nein" 

298 jn$(i)="ja "+chr$(18)+"nein”+ch 
r$(146) “ 

309 aa$="B9AQ" :eas="Frff" 

318 k0=2:k1=16:K2=256:k3=15:K4=1:K5 
=34:k6=13:k7=141:1K8=7:k9=653 

329 ka=s4ö:kb=31:kc=128:kd=159 

339 rem KRRKRRERKKKRIRR bildaufbau * 
348 poke53289, 11:poke53281,11 

359 printchrs$s(142) ;chr$(8) ;chr$(158 
);schr$(147);5 

368% printg2$si$si$sgi$ssisgisgbsgbssi 
$32$%s1$si$g1$si$sississisgyg1lsgäsgbsg 
2$51$92$} 

378 printsi$si$gil$98$g32&$s51$s51$91$99 
$si$g1$95$I9b$9 255 1$9h$ 

389 printsi$gssggssissisgäsgcHsissi 
+51492$91%51$9d$716z21$ge$514599$5 149 
S$s1$51%$; 

381 print99#98#51$98%51$92#91$51%99 
$s1$s51$99$51$98$5 1 59h 

398% printsi$g9sgSssissisg9ssississi 
$slEFg1Fg2E51FIHt$Z1 HZ 1 EI I ES 1 HI 95 IE 
BS$si$s1$; % 

371 printg9$g8$s1$g98$51$5998$5 155 1599 
$51$98$92$9c$g1$s1$ghs$ 

428 printgi$s1i$si1$g92$s1$92$Ic$gc$si 
Ye a nee 
108198181 


Schr$(i+48-(i> 


481 printgössgdadssisgississississisg2 
$si$gississitsissisghs 
4189 print 

428 print"(c) 18/85 by 
ssner/walldor#f" 

438 foro=1t039: printchr$(184);5 :next 
D 


andreas mei 


448 print:iprint"anfangsadresse (hex 
) ss 8$"jaa$ 

459 print 

4689 print" endadresse (hex) : $ 
"jea$ \ 
478 print 


48% print"ausgabe auch auf drucker 

? "sjnstdr) 

49% print 

s@@ printchr$(117)5:fori=1t037:prin 
tchr$(96) ji nexti:printchr$(105) 

S18 printchrs$(186) 5: fori=1t037:prin 
tchr$(96) 5 :nexti:printchr#$(197) 

528 print"tasten-funktionen waehren 

d der ausgabe: " 

539 fori=1t039:printchr$(131)5:next 
i 

5489 print"ctrl-taste 
des hex-dumps" 

s5@ print 

568 print"shift-tasten: pause 5; unte 
rbrechen des" 
5728 print" 
olange shift" 
588 print" shift-lock 
gedrueckt ist" 

599 print 

69% print"c=cbm-taste ;abbruch des 
hex-dumps und" 

19 print".vcssrerses.., zurueck in d 
ieses bild"sjchr$(19) 

6289 rem X%X%%%% eingabe der daten * 
638 poke198,% 

649 fori=itos:printinext 

659 printtab(23);:inputaas 

669 ul$=aas:gosub195d: aa=ul 

678 iff=Lloraa?d5528thenprintchrs(14 
5)5:g90t065% 

688 print 

698 printtab(23);:inputeas 
7828 ul$=ea$:gosubi1959: ea=ul 
718 iff=ithenprintchr$(145); 
17) 

728 ifaa>eathenprintchr$(19):9g0t043 
17) 

738 print:a=dr 

748 printtab(28);5jn$(a) : 

759 geta$ 
7ER ifas=" 
)5:90t0748 
778 ifas=schr$(13)then??g 


:verlangsamen 


oder ‚hex-dumps, 5 


‚oder sh-lock 


:90t069 


"thena=1-a:printchr$(145 
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Hex —-Dump 4 


788 90t0758 

798 dr=a 

899 rem *%%%* ausgabe des hex-dumps * 
818 ifdr=dthenopeni ,4:print#i,chr$( 
14)5"hex-dump von $"jaa$j" bis $"ea 
$:print#i 

828 printchr$s(1S9P) ;schrs$s(147?)schrs$ti 
4)35 

839 fori=aatoeasteps 

8489 ifi>65528theni=65528 

858 td$=chrs$(k5) 

859 sl=intti/k2):s2=ei-k2%si 

8789 hds=hx$(s1/kil)+hx$(siandk3) +hx$ 
(s2/kil)+hx$(s2andk3) +":" 

888 forj=.tok8 

878 wh=peek(itj) 

998 hd$=hd$+hx$(wh/ki)+hx$(whandk3) 
„N n 

918 ift(wh>kbandwhskce)orwh>kd)andwh 
<>kS5then93g 

wh=ka 

tds=tds+tchrs$(wh) 

next 

hd$=hds+tds+chrs(k5) 
waitk9,k4,k4 

ifpeek (k?)=kdthencloseil:90t0349 
printhds 
ifdr=.thenprint#1,chrs$(14)jchr$ 
(17)5hds$ 

next 
ifdr=dthenprint#i:print#i:clos 


wait293,63 
goto34% 
rem X%X%%%* umwandlung hex-dez * 
f=d:ul=d 
iflen(ul$)<>4thenf=Lireturn 
fori=1to4:forj=@toi5 
ifmids(uls,i,i)=hx$(j)thenii119 
nextj 

f=l:return 
ulzul+j*iöstt4-i)inextiireturn 
rem hex-dump zszs2=2z2z22=22=2=2=== 
rem 838911 bytes memory 
rem 88035657? bytes program 
rem 299259 bytes variables 
A9agA&s8 bytes arrays 
292976 bytes strings 
234941 bytes free (9) 


> 


11 | Bu | Bus | Bu | Bu | Be ı 29 
umnmn 


26 : 


ar | KOPFDATEN 654 


kopfdaten 
(p) 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
whs=chr$ (005) 
c4$=chr$(017) 
he$s=chr$ (019) 
re$=chr$ (028) 
gr$=chr$ (030) 
sl$=chr$ (032) 
c2$=chr$ (145) 
cl$=chr$ (147) 
c1$=chr$ (157) 
cy$=chr$ (159) 


(e)212789 


by 


bernd welte 

version 2.0 40z/ascii 
c64 + 1541/1571/1530 
ırt$=chr$ (013) 
:rn$=chr$ (018) 
:de$=chr$ (020) 
:c3$=chr$ (029) 
:bl$=chr$ (031) 
:bk$=chr$ (144) 
:rT$=chr$ (146) 
:pu$=chr$ (156) 
:ye$=chr$ (158) 
:s2$=chr$ (160) 


—71 — 


64 
02/86 cbm + cw team ts = 


forgy=ito3:q3$=q3$+c4$:nextgq 
forg=1t05:95$=g5$+c4$:nextgq 
forg=1t017:gb$=gb$+s1l$:nextg 
forq=1tol4:qc$=qc$+s1$:nextg 
forgq=ltoll:qd$=qgd$+sis:nextg 
cu=65520:Ze=781:8p=782:8e=783 
printcl$rn$: 

PrINE "RHEIN UN N 


270 


E.2.2. 2 2 2 2 22 2 2.2 2 2, zu 


ZIONPEAIHTERT AR. u ea RN NEN 3 LEN 
290 print"*..... EN, a&b welte 
SOLTWATR. ee ME 


Dee Be Er Er > 


310 PrINE "KRIMI II 
B.2. 2.2.2.2. 2. 2.2 2.2.2.2. 2 2280 


320 printrf$ 
PrINEs ANA ER nn. 2.2.2.2. 2. 2.2.2.2. 


PRINT *kopfdaten* 


KARA 


print"...zum finden der anfangs 


adressen von..."; 

400 print 

410 print'"...disketten- und kassett 
enprogrammen..."; 

420 print 

430 print 

440 print : 

AIO:PrINEH. ER REN (1) diskette. 


KOPFDATEN 64 


print 
PILIMEN EN .(2) kassette. 


geta$:1fa$=""thensS00 
ifa$="1"then540 

ifa$="2'"then?780 

goto50n0 

SAU PTINRECLSLNENNE EN disket 
ten-daten.........:.. "srf$ 

550 printg3$qc$rn$'programmname":pr 
int:inputpr$ 

560 open8,8,8,pr$:get#8,a$,b$:close 
8 H 
570 a=asc(a$+tchr$(0)) :b=asc (b$+chr$ 
(0)) :d=ea+t256*b:gosub670 


580 pokeze,10:pokesp,Ü:pokese,0:sys 


cu 

590: BEINEN Dan startadressen des 
PLOGT amm. nn. ; 

600 printc4$c4$gd$'" dezimal="d 
610 printc4$gb$'"hex= " 


BZ2OUBFINLAIBE HN neue daten ? 
VIA a Le nen EiiL. 
630 getx$:1ifx$=""then630 


ı£fx$="j'"then540 

ifx$="n'then260 

goto630 

pokeze,1l4:pokesp, 22:pokese ,0:Sy 


b=int (d/ 256) :gosub720 
printh$:; 
b=d-b* 256 : 9g0osub720 
printh$; ; 
l=pand15:h=(banda240)/16 
i£fh>9thenh=h+55 :g90t0750 
h=h+48 
ı£1>9thenl=1+55:90t0770 
1=1+48 
h$=chr$(h) +chr$ (1) :return 
REEHLOLITHD Le TE NE. bandko 
PEST EN AL ch. Bu ae Re‘ 
790 z=z+1 

openl,1,0 

t=peek (828) 
ift=1thent$="basic pgm'" 
ift=3thent$="masch. pgm' 
ift=4thent$="daten-file" 
a=peek (829) +peek (830) * 256 
e=peek (831) +peek (832) *256 
l=e-a 
n$='"":fori=833t01019 
n$=n$+chr$(peek (i)) 

next 

PRrINLAHS LAIEN EN, "zZ" ,.programm 


BPRINELDEINE TYP... RER ER 


930 print:ift<>4thenprint" laenge 
:",1'byte'":print 

940 print" anf.adr.:":a 

950 printc4$'" name None 

IHN PLINLIDISN.N le weitere date 
NEIN EHRT NN un 


970 geta$:ifa$=""then970 

980 ifa$="j'"thenclosel:g0t0780 
990: ifa$="n'"thenclosel :g0t0260 
1000 g0t0970 

rem kopfdaten 
rem 38911 bytes 
rem 02875 bytes 
rem 00073 bytes 
rem 00000 bytes 
rem 00084 bytes strings 
rem 36036 bytes free 


=====-=-=-==-=2==064 
memory 
programm ===== 
variables=-==== 
arrays 


zz m =. 


KOPFDATEN 64 


Dieses Programm sucht die Anfangsadressen von 
Programmen, welche auf Diskette oder Kassette 
gespeichert sind. 

ach der Wahl des gewünschten Speichermediums ° 
Diskette muß der Programmname eingegeben wer- 
den. Der Rechner sucht nun das gewünschte Pro- 
gramm und gibt die dezimalen und hexadezimalen 
Startadressen aus. Nachdem dies geschehen ist, 
können entweder neue Diskettenprogramme ge- 
sucht werden oder Kopfdaten von neuem begon- 
nen werden. Bei Abfrage von Kassettenprogram- 
men wird zusätzlich eine Information über die 
Programmart gegeben: Maschinenprogramm, 
Basicprogramm oder Datenfile. 
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EINGABE VON HEX-DUMP! 


Da anstelle von reversen Steuerzeichen nur CHR$- 
Codes verwendet wurden, sollten sich bei der Ein- 
gabe in dieser Hinsicht keine Schwierigkeiten erge- 
ben. Die REM-Zeilennummern sollten vorhanden 
sein, da sie z.T. angesprungen werden. Auf die 
REM-Texte jedoch können Sie verzichten; es 


' reicht vollkommen aus, wenn die entsprechenden 


Zeilen als Leerzeilen existieren. 
Auch bei Hex-Dump gilt: erst SAVE, dann RUN! 


BEDIENUNG VON HEX-DUMP: 


Nach dem Starten von Hex-Dump mit RUN müs- 
sen Sie zunächst Anfangs- und Endadresse des ge- 


“ wünschten Hex-Dumps angeben. Es werden nur 


vierstellige Hex-Zahlen akzeptiert, wobei die An- 
fangsadresse weder größer als $FFF8 noch größer 
als die Endadresse sein darf. Nach dem Eingeben 
der o.g. Adressen müssen Sie angeben, ob die Aus- 
gabe auch auf dem Drucker erfolgen soll. Die Aus- 
wahl zwischen JA und NEIN erfolgt mit der 
SPACE-Taste; bitte zur Bestätigung RETURN 
drücken! 


Bitte lesen Sie weiter auf Seite 28 


27 


| LISTING 
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Während des nun folgenden Dumps haben folgende 
Tasten Sonderfunktionen: 
— Control-Taste: Verlangsamen der Bildschirmaus- 


» gabe 
— Shift-Tasten oder Shift-Lock-Taste: Anhalten der 
Bildschirmausgabe; nach Loslassen dieser Taste 

geht’s weiter. 

— Commodore (C=)-Taste: sofortiges Abbrechen 
des Dumps und Rückkehr ins erste Bild. Bitte 
diese Taste gedrückt halten, bis o.g. Reaktion 
eintritt! 

Ist der Dump vollständig ausgegeben, müssen Sie ei- 

ne beliebige Taste drücken, um wieder ins erste 

Bild zu gelangen. Wollen Sie denselben Speicherin- 

halt nochmals aufgelistet bekommen, sollten Sie bei 

der Adressen-Eingabe lediglich RETURN drücken. 


DR EIN IEHING DER EINZELNEN PROGRAMM- 
‘Ei a 


100— 240 REMs 
400— 520 Definition von Variablen und 
Konstanten 
1000-1300 Aufbau der Bildschirm-Grafik 
2000-2220 Eingeben der Adressen sowie Auswahl, 
ob gedruckt werden soll oder nicht 
3000-3060 Vorbereitungen zur Ausgabe der Daten 
3100-3350 Schleife zum Berechnen und Ausgeben 
der Hex-Zahlen und des ASC-Textes 
3400-3420 Rückkehr ins erste Bild 
100000-10130 Unterprogramm zum Umwandeln 
einer vierstelligen Hex-Zahl in eine 
Dezimalzahl (mit Fehlererkennung) 


VARIABLEN-LISTE ZU HEX-DUMP: 


HX$&0-15) Feld mit den Hex-Zahlen O0 bis F 

JN$(0,1) enthält JA/NEIN-Text 

AA$ Anfangsadresse im hexadezimalen 

Format 

EA$ Endadresse im hexadezimalen Format 

K0,K1...KC,KD Konstanten, Werte siehe Listing! 
Konstantenverwendung bringt Ge- 
schwindigkeitsvorteile 

1A verschieden genutzte Laufvariablen ” 


u1$ Übergabevariable für Unterprogramm; 
enthält umzuwandelnde Zahl im 
Hex-Format 

Ul wird vom Unterprogramm mit 0.8. 
Wert im Dezimal-Format zurück- 
gegeben 4 

F wird =1, wenn beim Umwandeln ein 
Fehler erkannt wurde 

AA Anfangsadresse im dezimalen Format 

EA Endadresse im dezimalen Format 

A Hilfsvariable 

DR 0 wenn auch gedruckt werden 
so 

A$ mit GET eingelesenes Zeichen 

TD$ enthält ermittelten Text im ASCI- 
Format 

Sl HI-Byte der aktuellen Basisadresse 

S2 LO-Byte der aktuellen Basisadresse 

HD$ wird mit Basisadresse und Speicher- 
inhalten im hexadezimalen Format 
gefüllt 

WH Inhalt der aktuellen Speicheradresse 


im dezimalen Format. 


FARBKOMINATIONEN: 


Dieses Programm stellt Farbkombinationen mit 
den dazugehörigen Poke-Befehlen dar. Es sollen da- 
mit für die spätere Programmierarbeit die bestmög- 
lichen Farbzusammenstellungen erprobt werden. 
Der Pfeil zur Farbauswahl der dazugehörigen 
Schrift, wird mit der Funktionstaste 1 hoch- und 
mit der Funktionstaste 3 runtergefahren. Mit der 
Funktionstaste 7 wird die Zeile angenommen. Die 
schlechten Farbkombinationen wurden im Pro- 
gramm nicht berücksichtigt und zusätzlich werden 
Töne ausgegeben. Nach Auswahl der Schriftfarbe 
werden auf dem Bildschirm alle verwendeten Rah- 
men- und Hintergrundfarben mit den dazugehöri- 
gen POKE-Befehlen auf dem Bildschirm ausgege- 
ben. Nach dem Durchlaufen aller Möglichkeiten 
stellt das Programm die Frage, ob Sie eine bestimm- 
te Farbe noch einmal sehen möchten. Mit der Be- 
jahung kann die gewünschte Kombination entwe- 
der mit der Poke-Nummer oder in Worten eingege- 
ben werden. Bei Verneinung beginnt das Programm 
von vorne. Nun kann eine andere Schriftfarbe ge- 
wählt werden, so daß auch die verschiedenen 
Schriftfarben im Zusammenhang mit Hintergrund 
und Rahmen angesehen werden können. Dieses 

. Programm kann auch teilweise in andere Program- 
me als Vorspann mit eingefügt werden. 


ELEKTRO= 
NISCHE 
ZEITUNG 


INFO-BOX: Datenfernübertragung 


Hier präsentiere ich Ihnen ein kurzes Programm 

zur Datenfernübertragung. Außer dem C-64 und 

der Floppy 1541 benötigt man noch einen Akustik- 

koppler (auf FTZ-Nummer achten). 

Nach dem Programmstart kann man wählen, ob 

automatisch gestartet wird. Wählt man den Auto- 

Betrieb, so nimmt der C-64 über Automodem den 

Anruf entgegen. Bei Handbetrieb muß zum Start 

der Übertragung eine Taste gedrückt werden. 

Nun steht der 64’er in telefonischem Kontakt zu 

einem anderen Rechner. Dieser andere Rechner 

kann nun über die verschiedenen Menüpunkte Files 

lesen. So ist die Übermittlung von Nachrichten, Da- 

ten und Programmen (letztere als Seq-Datei) über 

das Telefonnetz möglich. 

Der User am anderen Rechner hat keine Möglichkeit, 

irgendwelche Nachrichten zu hinterlegen. 

Dieses Programm soll auch keine komplette Mail- 

box darstellen, sondern nur die wichtigsten Funk- 

tionen (Auto-Modembetrieb, Controlltasten 
:s:x:c,File-Lesen und senden über RS 232, 
ime-Out-Routinen) einer Mailbox verdeutlichen. 

Den Ausbau des Programms, Schreibroutinen und 

Sys-Op.-Call, kann der geneigte Leser dann selbst 

bewerkstelligen. 

Das Programm entstand in Zusammenarbeit. 

Bitte lesen Sie weiter auf Seite 39 


FARBKOMBINATIONEN 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


(c) 10/85 


c4$=chr$ (017) 
rn$=chr$ (018) 
wh$=chr$ (005) 
gr$=chr$ (030) 
re$=chr$ (028) 
pu$=chr$ (156) 
cy$=chr$ (159) 


farbkombinationen 
(p) 02/86 cbm + cw team ts = 


by hartmut schulteis 


version 2.0 222/ascii 
vc-20 + 16k +1530/1541 


:cl$=chr$(147) 
ırf$=chr$ (146) 
:c3$=chr$ (029) 
:bl$=chr$ (031) 
:bk$=chr$ (144) 
:ye$=chr$ (158) 
:z1$=chr$ (096) 


u a u | 


s1$=chr$ (032) * 
forgq=1tol3:qga$=qas+tzi$:nextgq 
forg=1t07:97$=q97$+c4$:nextq 
forg=1to2:q92$=q2$+c4$:nextg _ 
forq=1to10:q90$=q0$+c4$:nextq 
forgq=1t03:943$=93$+c4$:nextq 
forgq=1t03:95$=95$+c3$:nextq 
forq=1t03:99$=q99$+s1$:nextgq 
forg=1t06:98$=q8$+si1$:nextgq 
forgq=1t09:qc$=qc$+zi1$:nextg 
forg=1t06::qd$=qad$+z1$:nextq 
gb$=gb$+g9$+re$s+qgas+bk$ 
af$g=qgf$+rgq9$+si$s+tga$ 
qg$=qg$+qgc$+si$s+qgd$ 
poke36879,25 

printc1$ggr$c4$' "Or 
ww" 

print WI! 
PLrINE "KURT! 
print "WAHREN! 
pr int! "ODER EEE! 
Print! "ODE 
Pr int! III! 
Print "III II! 
pr int! MOIN A 5 
print 

PrINtCcIS "TURN EUNEN " 
pr int! "OO 
Print! RAIN! 
pr int!" VIII 
Print! OO OO! 
print!" HR IR 
Pr int! III 
Pr int "WOW OR! 
PrINtL "KRITIK 


gosub4380 
fort=1t03500:next 
fory=1to21 

print 
fort=1t0250:next 
next 


570 printchr$(14) 

580 printc1$:poke37877,0 

590 printcy$c4$c4$c4$'Dieses Progra 
mm stellt" 

600 print'"Ihnen alle '" 

610: printeagnn. 2.0 ,., ' selbst-" 
620 printc4$'"staendig vor mit den" 
630 printc4$"dazugehoerigen 'Poke'" 
c4$'"Befehlen." 

640 poke37877,72:908suUb2040 :gosub371 
0 F 

650 geta$:ifa$=""then650 

660 poke36879,175 

670 'gosub2850 

680 rem 2.schrifttafel 

690 poke37877,0 

700 printcl$ 

710 print"In welcher Farbe sol-'c4$ 
" len die Zeichen sein ?'" 

720 fort=1t0100:next 

730 printbk$'Bitte 

waehlen Sie auf'c4$'" der uebernaech 
sten'c4$'"....Schrifttafel" _ 


740 printwh$c4$'"Ihren Pfeil koennen 
"c4$"...Sie mit'F 1' hoch- und"; 
741 printc4$'"'F 3' herunterfahren.' 
750 printc4$'Mit 'F7' ist die Zeile 
"c4$'"angenommen !!!" 


7650: PFINECASDISN EL. Taste" 

770 poke37877,72:g90sub2040 

780 gosub5950 

790 poke36879,136 

800 printcl$ 

810 printc4$bk$'" zum waehlen :' 
820 printgb$ 

830 gosub930 

840 printc4$qg8$bk$"schwarz'"c4$:gosu 
b930 

850 printq8d$wh$'"weiss"c4$:g90sub930 


860 printg8d$re$"rot"c4$:gosub930 
870 printqgd$cy$"tuerkis'"c4$:gosub93 
0 ’ { 
880 printg8$pu$"violett"c4$:g90sub93 
fe) 

890 printqg8d$gr$"gruen'"c4$:gosub930 
900 printg8$bl$"blau'"c4$:gosub930 
910 printqa8d$ye$'"gelb'"c4$:gosub930 
920 printqg8$bk$rn$'"ende"rf$:90t0296 
0 

930 fort=1t0800:next 

940 return x 

950 rem dreiklang 

960 poke36878,15 

970 n=n+1 

980 readu 

990 poke36875,u 


1000 £fort=1t0500:next 
29 


FARBKOMBINATIONEN 


1010 ifn<3thenpoke36875,0:90t0970 

1020 fort=15to0step-.05:poke36878,t 
:next 
1030 
1040 


poke36875,0 

n=0:restore 

return 

1060 data201,219,231 

rem schwarz 

printbk$c1l$ 
fory=16to3l:gosub2800:next 
fory=40t095 :390sub2800:next 
fory=104t0127:g90sub2800: next 
fory=136t0255 :90sub2800:next 
as=1:90t02090 

rem weiss 

printcl$wh$ 
fory=8t015:g0sub2800 :next 
fory=40t047:g0sub2800 :next 
fory=-56t063:g0sub2800 :next 
fory=72t079:g0sub2800 :next 
fory=88t095 :gosub2800 :next 
fory=104to111:gosub2800:next 
fory=120t0127:g0sub2800:next 
fory=136t0143:g0sub2800:next 
fory=152t0159:g0sub2800:next 
fory=168t0175:90sub2800:next 
fory=184t0191:g0osub2800:next 
fory=200t0207 :g0sub2800: next 
fory=216t0223:g90sub2800:next 
fory=232t0239 :90sub2800:next 
fory=248t 0255 :90sub2800:next 
bs=1:90t02090 

rem rot 

printre$c1l$ 

fory=8t031 :g0sub2800 : next 
fory=48t063:gosub2800 :next 
fory=72t095:g0osub2800:next 
fory=104t0127:g0sub2800 : next 
fory=136t0255 :g90osub2800:next 
cs=1:90t02090 

rem tuerkis 

printcl$cy$ 
fory=8t047:g0sub2800:next 
fory=64t0191:g0sub2800::next 
fory=200t0207:g90sub2800 :next 
fory=216t0223:g0osub2800:next 
fory=232t0255 :g0osub2800 :next 
ds=1:90t02090 

rem violett 

printpu$c1l$ 

fory=8t031 :g0osub2800 :next 
fory=40t063:gosub2800 : next 
fory=88t095::g0sub2800 :next 
fory=104t0127:g0sub2800:next 
fory=136t0159 :g0osub2800 :next 
fory=168t0255 :90sub2800::next 
es=1:9g0t02090 

rem gruen 


printcl$gr$ 
fory=8t079:gosub2800:next 
fory=96to111:g0sub2800 :next 
fory=-120t0143:g0osub2800 :next 
fory=152t0159 :g0sub2800 :next 
fory=168t0255: aeg next 
fs=1:90t02090 

rem blau 

printci$bl$ 

fory=8t031 :gosub2800: next 
fory=40t063:g0sub2800:next 
fory=72t079:g0osub2800:next 
fory=88t095 :gosub2800 :next 
fory=112t0127:g0sub2800 ::next 
fory=136t0159:gosub2800 :next 
fory=168t0255 :gosub2800 : next 
gs=1:90t02090 

rem gelop 

printcl$ye$ 
fory=8tolll:gosub2800:next 
fory=128t0143:g0sub2800: next 
fory=152t0255 :gosub2800 : next 
hs=1:90t02090 

poke36879,42 
printbk$c1$qg7$"äieses programm 
wird" 


1830 print"sich in wenigen sekun-de 


n automatisch loe-'" 

1840 print'"schen! " 

1850 printc4$"zur aufhebung, 
1860 print'"'run-stop-taste' 
1870 print'taetigen." 

1880 foryu=1t02000:next 

1890 printqg2$rn$'"loeschung'rf$si$rn 
$"bei"rf$'" 4000'; 

1900 £forgh=1t04000:print's'";gh 

1910 next 

1920 poke36879,8 


bitte" 
be-'" 


1930 forkl=itoll 

1940 printcl$ 

1950 forh=1t0500:next 

1960 poke36878,15: poke36875,, 215 


1970 printq0$c3$c3$ye$rn$"programml 
oeschung!'rf$ 

fort=1t0500 :next 

‚Poke36878,0 

next 

poke36875,0 
poke36878.15:poke36876 ‚237 

end 

rem gong 
poke36878,15:poke36876,179 
fort=15to0step-.04:poke36878,t 
:next 

2070 Poke36876,, (6) 

2080 return 

2090 rem abfragung 

2100 poke36879,141 


FARBKOMBINATIONEN 


2110 printci$g3$'"moechten sie eine 

far-"c4$'" be nochmals:sehen ?' 

2120 printg2s Se ee 9 a > 

2130 ifbb=Othengosub950 : pb=i 

2140 getas:ifag=""tnen2140 

2150 ifa$='"n"thenbb=0:z=1:90t0790 

2160 ifa$="j"then2260 

2170 goto2140 

2180 printcl$qg3$"...welche adresse 

y. 

2190 printqg2$:input'poke 36879,":y% 

2200 ify%<Bory%>255then2240 

2210 poke36879,y% 

2220 forv=1t09000:next 

2230 g0t02090 

2240 printg2$'"die 
NCASUHIcht 1! 

2250 goto2190 

2260 printg2$'was 
"c4$" eingeben ?" 

2270 printqg2f"' w =: woerter' 

2280 printc4$" z = zahlen" 

2290 gethb$: ifb$=""then2290 

2300 ifb$='"w'"then2330 

2310 ifb$="z'"then2180 

2320 a0ot02290 

2330 ifcc=Othengosub5720:cc=l 

2340 printcl$qy3$"...weiche farben ? 


adresse kenne ich 


moechten sie denn 


2350 printqg2$'"bildschirmhintergrund 


2360 inputr$ 

2370 printg2$"bildschirmrahmen: " 
2380 printc4$:input;h$ 

2390 rem ablesen der stringvariable 
n und hoch- 

2400 rem fahren der ganzzahlvariabl 
e und absicherung 


2410 ifr$="schwarz'"thenaa%=8:9g0t026 
es ifr$="weiss"thenaa%=24:g90t0261 
un ifr$="rot"thenaa%=40:goto26iN 
2440 ifr$="tuerkis"thenaa%=56 :90t02 
Sash ifr$="violett"thenaa%=72:g0t02 
a ifr$="gruen"'tnenaa%=88:90t0261 
ir ifr$="blau"thenaa%=104:90t0261 
Znan ifr$="gelb'"thenaa%=120:g0t0261 
2490 ifr$="orange"thenaa%=136 :90t02 


2500 ifr$="hellorange'thenaa%=152:g 
oto2610 
2510 ifr$="rosa'"thenaa%=168:90t0261 


0 

2520 ifr$="helltuerkis"tnenaa%=184: 
g0oto2610 

2530 ifr$="heliviolett'thenaa%=200: 
g0t02610 

2540 ifr$="hellgruen'thenaa%=216:g0 
to2610 

2550 ifr$="hellblau'thenaa%=232:got 
02610 

2560 ifr$="heligelb'"thenaa%=248:got 
02610 

2570 printg2$"die hintergrundfarbe. 
."e4$'kenne ich nicht !" 


2580 printqg2$'"bildschirmhintergrund 
2590 inputr$ 

2600 goto2410 

2610 ifh$="schwarz'then2730 

2620 ifh$="weiss'thenaa%=aa%t1:goto 
2730 

2630 ifh$="rot"thenaa%=aa%+t2:90t027 
30 

2640 ifh$="tuerkis'"thenaa%=aa%t+3:go 
t02730 


2650 ifh$="violett'"thenaa%=aa%+4:g0o 

t0o2730 

2660 ifh$="gruen'"thenaa%=aa%+5 :goto 

2730 

2670 ifh$="blau'thenaa%=aa%t+6:g0t0o2 

730 

2680 ifh$="gelb'thenaa%=aa%t+t7:g0to2 

730 

2690 printqg2$'die rahmenfarbe kenne 
Neas"ich.näacht .“ 

2700 printg2$"bildschirmrahmen: " 

2710 printc4$:jnput:h$ 

2720 goto2610 

2730 rem gewaehlte farbkombination 

2740 poke36879.aa% 

2750 printg2$'der 

u'c4$" lautet. 

2760 printc4$'"poke 36879,';aa% 

2770 £forv=1t09000:next 

2780 aa%=0 

2790 g0t02090 

2800 rem routine fuer die farbkombi 

nationen 

printcl$qg0$g5$"poke 36879,";y 

poke36879,y 

fort=1t02000:next 

return 

rem 1.schrifttafei 

printc1$:poke37877,0 

2870 printbl$'"Beim Waehlen koennen. 

."c4$'Sie sich mit einem"; 


'poke'-befehl daz 


2871. print c4$".. 3 TIip7 vom Computer 
mani-'" 
2880 print'"puiieren lassen." 


31 


FARBRKOMBINATIONEN 


2890 printc4$wh$'" Der Tip sieht so 
aus: "cAB. ..."gr$"->"re$ 
2900 printc4$'Noch eine Hilfe :'"bk$ 
2910 printc4$"In der Zeile die Sie. 
."c4$'"schon angewaehlt hat-'"; 
2911 printc4$'" ten steht ein Kreuz. 


2920 
2930 
2940 
2950 
2960 


PRINLPUSCAS N... ET Taste" 
poke37877,72:gosub2040 
poke198,0:wait198,1:geta$ 
return 

rem tippfeil und kreuze 

2970 rem 2.22.2222 22.222 2222 2.27 

2980 ifz=Othenpoke4207,45:poke4208, 
62:poke37999 ,5:poke38000,5:90t03280 
2990 rem kreuze 

3000 ifas=1thenpoke4207,86 ::poke3799 


ifbs=1thenpoke4251,86 :poke3804 


ifcs=1thenpoke4295 ‚86 :poke3808 


ifds=ithenpoke4339 ,86 :poke3813 


ifes=1thenpoke4383, 86 :poke3817 


iffs=1thenpoke4427,86 :poke3821 


ifgs=lthenpoke4471,86:poke3826 


ifhs=1thenpoke4515 ‚86: poke3830 


rem pfeilunterbringung 
ifpeek (4207) =86then3110 
poke4207,45:poke4208,62: 
999 ,5:poke38000,5:90t03290 
3110 ifpeek (4251) =»86then3130 
3120 poke4251,45:poke4252,62: 
043,5:poke38044,5:90t03290 
3130 ifpeek (4295) =86then3150 
3140 poke4295,45:poke4296 .62: 
087,5:poke38088,5:90t03290 
3150 ifpeek (4339) =86then3170 
3160 poke4339,45:poke4340,62: 
131,5:poke38132,5:90t03290 
3170 ifpeek (4383) =86then3190 
3180 poke4383,45 :poke4384,62: 
175,5:poke38176 ,5:90t03290 
3190 ifpeek (4427) =86then3210 
3200 poke4427,45:poke4428,62 
219,5:poke38220,5:90t03290 
3210 ifpeek (4471) =86then3230 
3220 poke4471,45:poke4472,62: 
263,5:poke38264,5:90t03290 
3230 ifpeek (4515) =86then3250 
3240 poke4515,45:poke4516 ,62: 
307,5:poke38308,5:90t03290 
3250 poke4559,45:poke4560,62: 
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poke37” 


poke38 


poke38 


poke38 


poke38 


:poke38 


poke38 


poke38 


poke38 


351,5:poke38352,5:90t03290 

3260 rem funktionspfeil 

3270 rem ar a 

3280 poke38015,2:poke38016,2:poke42 
23,60:poke4224 ,45 :90t03370 

3290 ifss=0thenpoke38015,2:poke3801 
6,2:poke4223,60:poke4224,45:9010337 
0 a 

3300 ifss=ithenpoke38059 ,2:poke3806 
0,2:poke4267,60:poke4268,45:90t0337 
0 

3310 ifss=2thenpoke38103,2:poke3810 
4,2:poke4311,60:poke4312,45 ::90t0337 
(6) 

3320 ifss=3thenpoke38147,2:poke3814 
8,2:poke4355,60:poke4356 ,45:90t0337 
0 

3330 ifss=4thenpoke38191,2:poke3819 
2,2:poke4399,60:poke4400 ,45:90t0337 
0 : 


3340 ifss=-5thenpoke38235 ,2:poke3823 
6,2:poke4443,60:poke4444,45:90t0337 


oO 


3350 ifss=6thenpoke38279,2:poke3828 
0,2:poke4487,60:poke4488,45:90t0337 
0 

3360 poke38323,2:poke38324,2:poke45 
31,60:poke4532,45 

3370 gosub2040 

3380 rem funktionstasten 

3390 getb$:ifb$=""then3390 

3400 ifb$=chr$ (133) then3460 

3410 ifb$=chr$ (134) then3450 

3420 ifb$=chr$ (136) then3680 

3430 9003380 

3440 rem variablenveraenderung und 
absicherung 

3450 ss=ss+1:9g0t03470 

3460 ss=ss-i1 

3470 ifss<Othenss=0 :9g0t03380 

3480 ifss>8thenss=8:g0t03380 

A 3490 rem pfeilbewegung 

3500 ifss=Othenpoke38015,2:poke3801 
6,2:poke4223,60:poke4224,45:90t0353 
0 

3510 poke4223,32:poke4224,32 

3520 ifss=1thenpoke38059,2:poke3806 
0,2:poke4267,60:poke4268,45:90t0355 
0 

3530 poke4267,32:poke4268,32 

3540 ifss=2thenpoke38103,2:poke3810 
4,2:poke4311,60:poke4312,45:90t0357 
16) 

3550 poke4311,32:poke4312,32 

3560 ifss=3thenpoke38147,2:poke3814 
8,2:poke4355,60:poke4356 ,45:90t0359 
[6) H 

3570 poke4355,32:poke4356 ,32 


u——eeeeeeeeeeeäääääää—nnn————————, m _| __ uk 


FARBRKOMBINATIONEN 


3580 ifss=4thenpoke3819i ,2:poke3819 
2,2:poke4399,60:poke4400,45:g0ot0361 
(6) 

3590 poke4399 ,32:poke4400,32 

3600 ifss=5thenpoke38235 ,2:poke3823 
6,2:poke4443,60:poke4444,45:90t0363 
0 
3610 poke4443,32:poke4444,32 

3620 ifss=6thenpoke38279,2:poke3828 
0,2:poke4487,60:poke4488,45 :90t0365 
(6) 

3630 poke4487,32:poke4488,32 

3640 ifss=7thenpoke38323,2:poke3832 
4,2:poke4531,60:poke4532,45:90t0367 
[6) 5 
3650 poke4531,32:poke4532,32 

3660 ifss=8thenpoke38367 ,2:poke3836 
8,2:poke4575,60:poke4576,45:90t0338 


poke4575,32:poke4576,32:g0t033 


rem verzweigung 
sa=ss+t1l 

3700 onsagoto1070,1140,1320,1400,14 
-80,1570,1650,1750,1810 
3710 rem 'farbkombination' 
3720 forj=38292t038296 
3730 pokej,O r 

next 

1=4500 
fort=1t03500:next 
pokel ,‚84:g90sub930 
pokel+1,1:90sub930 
pokel+2,19:g0sub930 
pokel+3,20:gosub930 
poke1l+4,5 
geta$:ifa$=""then3820 
forj=38292t038296 
pokej ‚1 

next 
forp=38032t038039 
pokep,4 

next 
forh=38064t038073 
pokeh,4 

next 

3920 k=4240 

pokek ,‚70:90sub930 


pokek+1,65: 
pokek+2,82: 
pokek+3,66: 
:gosub93I30 
pokek+5,79: 
pokek+6,77: 
pokek+7,45: 


pokek+4,75 


m=4272 


gosub930 
gosub930 
gosub930 


gosub930 
gosub930 
gosub930 


pokem,66 :g0osub930 


pokem+1,73: 


gosub930 


pokem+2,78: 
:gosub930 


pokem+3,65 


pokem+4,84: 
pokem+5,73: 
:g0sub930 
pokem+7,78: 
:gosub930 


pokem+6,79 


pokem+t8,69 


gosub930 


gosub930 
gosub930 


gosub930 


pokem+9,78 
forj=38292t038296 
w=int(rnd(1)*8) 
ifw=1then4130 

pokej ,w 

next 
geta$:ifa$=""thend170 
b=0 
fork=38292t038296 
pokek ‚1 

next 

forb=-1t025 
fori=38032t038039 
z=int(rnd(1)*8) 
ifz=1then4240 
pokei,z 

nexti 
forc=38064t038073 
h=int(rnd(1)*8) 
ifh=1then4290 
pokec,h 

nextc 

nextb 
fory=38292t038296 
pokey,2 

next 

return. 

rem 
fort=1to1l000:next 
m=38130:p=4338 
pokem,6:pokep,14 
fort=1t0600:next 
pokep ‚5:pokem+1,6 
pokep+1,14 
fort=1t0600:next 
pokep,14:pokep+1,5 
pokem+2,6:pokep+2,14 
fort=1t0600:next 
pokem,4:pokep,15 
pokep+1,14:pokep+t2,5 
pokem+3,6:pokep+3,14 
fort=1t0600:next 
pokep,9:pokem+1,4 
pokep+t1,15:pokep+2,14 
pokep+3,5:pokem+4,6 
pokep+4,14 
fort=1t0600:next 
pokep,20:pokep+1,9 
pokem+2,4:pokep+2,15 
pokep+3,14:pokep+4,5 
pokem+5,6:pokep+5,14. 


...farbkombinationen 


FARBKOMBINATIONEN 


fort=1t0600:next 
pokem,0:pokep,1i 
pokep+1.20:pokep+t2,9 
pokem+3,4:pokep+3,15 
pokep+4,14:pokep+5,5 
pokem+6 ,6:pokep+6,14 
fort=1t0600:next 


. pokep,14:pokem+1,0 


pokep+l ,1:pokep+2,20 
pokep+3,9:pokem+4,4 
pokep+4,15:pokep+5,14 
pokep+6 ,5:pokem+7,6 
pokep+7,14 
fort=1t0600:next 
pokem,3:pokep,9 
pokep+1,14:pokem+2,0 
pokep+2,1:pokep+3,20 
pokep+4,9:pokem+5,4 
pokep+5,15:pokep+6,14 
pokep+7.5:pokem+8,6 
pokep+8,14 
fort=1t0600:next 
pokep,2:pokem+t1,3 
pokep+1,9:pokep+2,14 
pokem+3,0:pokep+3,1 
pokep+4,20:pokep+5.9 
pokem+6,4:pokep+6,15 
pokep+7,14:pokep+8,5 
pokem+t9,6:pokep+9,14 
fort=1t0600:next 
pokem,7:pokep,13 
pokep+1,2:pokem+2,3 
pokep+2,9:pokep+3,14 
pokem+4,0:pokep+4,1 
pokep+5,20:pokep+6,9 
pokem+7,4:pokep+7,15 
pokep+8,14:pokep+9,5 
pokem+10,6:pokep+10,14 
fort=1t0600:next 
pokep,15:pokem+1,7 
pokep+1.13:pokep+2,2 
pokem+3,3:pokep+3,9 
pokep+4,14:pokem+5,0 
pokep+5.1:pokep+6,20 
pokep+7,9:pokem+8,4 
pokep+8,15:pokep+9,14 
pokep+10,5:pokem+11,6 
pokep+11,14 
fort=1t0600:next 
pokep,11:pokep+1,15 
pokem+t2,7:pokep+2,13 
pokep+3,2:pokem+4,3 
pokep+4,9:pokep+5,14 
pokem+6,0:pokep+6 ,1 
pokep+7,20:pokep+8,9 
pokem+9,4:pokep+9,15 
pokep+10,14:pokep+11,5 
pokem+12,6:pokep+12,14 


5700 


fort=1t0600:next 
pokem,2:pokep,2 
pokep+l,il1:pokep+2,15 
pokem+3,7:pokep+3,13 
pokep+4,2:pokem+5,3 
pokep+5,9:pokep+6,14 
pokem+7,0:pokep+7,1 
pokep+8,20:pokep+t9,9 
pokem+10,4:pokep+10,15 
pokep+1i1,14:pokep+12,5 
pokem+t13,6:pokep+t13,14 
fort=-1t0600:next 
pokep,18:pokem+t1,2 
pokep+tl,2:pokept+t2.11 
pokep+3,15:pokem+4,7 
pokep+4,13:pokep+5.2 
pokem+6,3:pokep+6,9 
pokep+7,14:pokem+8,0 
pokep+8,1:pokep+9,20 
pokep+10,9:pokem+11,4 
pokep+11,15:pokep+12,14 
pokep+13,5:pokem+14,6 
pokep+14,14 
fort=1t0600:next 
pokep.1l:pokep+1,18 
pokem+t2,2:pokep+t2.2 
pokep+t3,11:pokep+4,15 
pokem+5,7:pokep+5,13 
pokep+6,2:pokem+7,3 
pokep+7,9:pokep+8B,14 
pokem+9,0:pokep+9,1 
pokep+10,20:pokep+i11,9 
pokem+12,4:pokep+t12,15 
pokep+13,14:pokep+14,5 
pokem+15,6:pokep+15,14 
fort=1t0600:next 
bb=bb+1 
pokep,6:pokep+1,1 
pokep+2,18:pokem+3,2 
pokep+3,2:pokep+4,11 
pokep+5,15:pokem+6,7 
pokep+6,13:pokep+t7,2 
pokem+8,3:pokep+8,9 
pokep+9,14:pokem+10,0 
pokep+t10,1:pokep+11,20 
pokep+t12,9:pokem+13,4 
pokep+13,15:pokep+14,14 
pokep+15,5:pokem+16,6 
pokep+t16,14 
fort=1t0600:next 
ifbb<3thenm=m+1 :p=p+1:pokep-1, 


32:g0t05560 


5710 
5720 
5730 
5740 
5750 
5760 


return 

rem erklaerung 

poke36879,137 
printc1$99$"..,..a ch tt uwen.g! 
printqgf$ 

printc4$'"mit der woertereingab 


3) 


20/64/128 


Das unabhängige Commodore- Magazin 


KOMMT REGELMÄSSIG AU IHNEN INS HAUS 
WICHTIGE RECHTLICHE 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr"" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Ihnen per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
'DORE-WELT kommt dann pünktlich ins Haus. 


GARANTIE! 


Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für sechs Ausgaben, 
wenn ihm- nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO SERVICE-KARTE 


Coupon 

Ja, ich möchte von "Ihrem Angebot 
Gebrauch machen. 

Bitte senden Sie mir bis auf Wider- 
ruf ab sofort jeweils die nächsten 


3/86 


CBMICW 


Name 
Ich nehme zur Kenntnis, Vorname 
daß die Belieferung Straße/Hausnr. 
erst beginnt, wenn die Abo- Plz/Ort _ 
Gebühr dem Verlag Ich bezahle: 


zugegangen ist. 
D) gegen Rechnung 


sechs. Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 
chen vor” Ablauf kündige, läuft 
diese Abmachung automatisch 
weiter. 

(3) 


D per beiliegendem Verrechnungsscheck 


D bargeldios per Bankeinzug von meinem Konto 


bei (Bank) und Ort 
Kontonummer 
Bankleitzahl 


CBM/CW 


Abo-Service 3/86 
Postfach 1107 
8044 UNTERSCHLEISSHEIM 


Unterschrift 


Unterschrift 


(steht auf jedem Kontoauszug). 


Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daßwir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und. uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen a 28 ern. Für gewerbliche Anbieter: 5 DM p. mm. 


CW/CBM 


Anzeigenabteilg. 
Postfach 1107 Straße/ Hausnr. 
8044 Lohhof PLZ/Ort 


nn Ben nn 


DAS SONDERANGEBOT: 


PRIVATE KLEINANZEIGEN 


KOSTENLOS! 


‘Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 


ACHTUNG: WICHTIGER HINWEIS! 


Wir veröffentlichen nur Kleinanzeigen privater In- 
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serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab- 
hängig! 

Wir behalten uns. vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu- 
läßt. 


_ __ PROGRAMMSERVICE 


die Listings dieses Heftes auf 


DO Kassette (10DM) D Diskette (25 DM) 


Zutreffendes bitte ankreuzen! . 


Ich zahle: 
per beigefügtem Scheck / Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 

NIE INIO: KBBRK LE OFIENBNBE nen sesueee een enaahene eea aerep ae  e e hre ale 
Meine Kontonummer ........ Ve a A a RE e 

Meine Bankleitzahl .........22222sue000. (steht auf jedem Bankauszug) 

Vorname. a N u a NERHIe IE A a LE 4 
EEE a ie a PLZ / Ort 
Hiermit bestätige ich, Ihre Verkaufsbedingunen gelesen zu haben und zu akzeptieren. (3) 


Kibarschnält 2. 2 2 N, KPD REED RN SUSE RE AERO PL LT 10 BRAUN BUS BUBEN 


Bitte ausschneiden und einsenden an 
COMMODORE-WELT 
KASSETTENSERVICE 3/86 
Postfach 1107 

8044 Unterschleißheim 


LESER WERBEN LESER 


GE WINNEN SIE EINE Der neue Abonnent war bis- 


COMPUTER UHR! Und zu- 
sätzlich eventuell noch ein 
großes Commodore-Buch. 
Oder ein Paket Disketten. 
ODER AUCH EINEN 
COMMODORE-DRUCKER 
— ODER EINE DISKET- 
TENSTATION! Wie? Sie 
werben einen Abonnenten. 
Dann haben Sie auf jeden 
Fall schon die Computer- 
Uhr gewonnen. Zusätzlich 
verlosen wir unter allen, 
die mitmachen, jeden Mo- 
nat vier weitere wertvolle 


Preise. Und alle sechs Mo- 


nate gibt es einen Haupt- 
preis unter allen Abo- 


Werbern zu gewinnen. Al- : 


so: Mitmachen. Mitgewin- 
nen. 


Ja, ich mache mit beim 
Abo-Wettbewerb. Ich habe 


als neuen Abonnenten der 
COMMODORE WELT 
geworben. 


her noch nicht Bezieher die- 
ser Zeitschrift. 

Als Prämie erhalte ich nach 
Eingang des Abo-Entgeltes 
auf jeden Fall eine Com- 
puter-Uhr, wie abgebildet, 
und nehme zusätzlich noch 
an der Verlosung des Mo- 
nats sowie der halbjährli- 
chen Hauptpreise teil. Mir 
ist bekannt, daß der Rechts- 
weg bei den Verlosungen 
ausgeschlossen ist. 

Meinen Preis senden Sie an 


Straße/Hsnr. BEREBUSAENEIDEE 
PLZ/Ort...... RP EL 
(Bitte ausschneiden und zu- 


sammen mit der Abobestell- 
karte unten einsenden!) 


RT ER PERF ROTER RETTET EURE TNEE UNRRETOCNTE TEC RRRUIETEERRETRERGETF ET URRMEEEEERSSERRETRU SR UT RE ER TEETeET ER ar ee T, 
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VC 20 8% x: 128 DE 
VC 28 C 64% 12 


Zune  Anwender- 
150 Programme 


Seiten Utilities 
Listings | Schul-Programme 


TIPS + Spiele 
TRICKS Adventures 


Rechtzeitig zu den ‚„‚freien’‘ Tagen rund um Ostern kommt das große COMMODORE WELT SPECIAL. 
Rund 150 Seiten, voll mit Listings, Service, Tips und Tricks. Ein Muß für jeden Commodore-User, ob 
mit dem VC 20 oder dem 128 — selbstverständlich erst recht für den 64er Fan! Dazu ein attraktives 
Angebot: Reservieren Sie sich Ihre Ausgabe mit untenstehendem Coupon! Sie erhalten das Heft nicht 
nur früher per Post ins Haus geliefert, sie sparen auch nocht glatte 2 Mark, also rund 15 Prozent! 
ACHTUNG: DIESES SUBSKRIPTIONSANGEBOT IST BEFRISTET BIS ZUM 15. MÄRZ! 


RESERVIERUNGS-KARTE 


Bitte reservieren Sie mir ( ) Exemplar(e) 
CBM REVUE SPECIAL Nr. 1/86 zum Preis von DM 12,80 
statt DM 14,80 


Ich zahle 
( ) Per beigefügtem Scheck * 
( )Per Bankabbuchung am Versandtag* 


Name 


CBM REVUE “  Straße/Hausnr. 
Reservierungs- 12 
Service 5 Bei Bankabbuchung: 


Kto-Nr.: Bankleitzahl 


Postfach 1 107 Bei (Bank und Ort) 
8044 Lohhof Unterschrift: 2 u m ee a 


Ausschneiden und einsenden 


* = Abbuchung erst am Versandtag! 
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FARBKOMBINATIONEN ne 


e"c4$'"ist es nicht moeglich" 
5770 printcä$rn$"inverse'rf$" schri 
ft zu'c4$"...produzieren !!!" 

5780 printq2$'"unbedingt merken !!!" 
printqg$ 
printq2$'" 
rem sirene 

i=15:poke36878,i 
forl1l=-1to13 
formm=-250t0240step-i 
poke36876 ,mm 

nextmm 

formm=240t0250 

poke36876 ‚mm 

nextmm 

poke36876,0 

ifll<4thennext 
i=i-1.5:poke36878,i:next 
geta$:ifa$=""then5930 
poke36879,141:return 

rem anmerkung 
pokei98,0:waitl98,1:geta$ 
poke37877,0 
printcl$re$q2$".. . ANMERKUNG 
printwh$c4$'"Aus den Farbpallet 
ten "c4$'"wurde bereits das her-" 
6000 print'"ausgenommen, 
$"nicht sehenswert ist." 
6010 printqg2$bk$'"Toene werden benut 
zt.."c4$'"um Ihre Aufmerksamkeit" 
print'"zu wecken. ' 

printg2$pu$'" 
poke37877,72:g0sub2040 
poke198.0:wait198,1:geta$ 
printchr$(142) 

return 

rem farbkombinationen ======20 
rem 28079 bytes memory 
rem 13922 bytes programm ===== 
00210 bytes variables===== 
00000 bytes arrays 
00398 bytes strings 
13549 bytes free 


eo, 1... 


= zz 
== = 


= -eumumu 


Fortsetzung von Seite 29 


Variablenliste 


n$ (x) = Name eines Menüpunktes 

fl$ (x) = Name eines Files 

be$ = Zeiger für Hand-/Autobetrieb 
a = Laufvariable 
xx = Laufvariable 

i = Laufvariable 

y = Laufvariable 

tt = Zeiger für Time-Out 

r$ = Aktuelles String zur RS 232 
b$ = ASCII Zeichen zur RS 232 

a$ = String-Einlese-Variable 

st = Rechnerinterne Statusvariable 


| Laufvariable 
f$ Zeichen über RS 232 einlesen 


Durch Compilieren mit dem Autospeed-Compiler 
wird das Programm beträchtlich schneller. Falls 
das Programm compiliert wird, sind die Endwerte 
der einzelnen Zeitschleifen mit dem Faktor 5 zu 
multiplizieren. 
Durch den Klammeraffen kann man in einem Da- 
tenfile einzelne Abschnitte voneinander trennen. 
Dies ist wichtig, wenn mit CTRL C ein Teilab- 
schnitt überlesen werden soll. 
Die Datenfiles können mit Textverarbeitungspro- 
grammen (z.B. Easyscript) oder Texteditoren, die 
sequentielle Files verarbeiten, erstellt werden. 
Um ein Programm in ein Datenfile zu verwandeln 
ist folgendes einzugeben: 
OPEN 2,8,2,“PROGRAMMNAME,S,W“ 
:CMD2: LIST 
Wenn der Cursor wieder erscheint, ist das File mit 
CLOSE 2 wieder zu schließen. Wenn nötig, diesen 
Vorgang mehrmals wiederholen. 


> 


KFZ-WIRTSCHAFTLICHKEIT 


Das Programm erklärt sich zum größten Teil von 
selbst. Der Benutzer kann das Programm an einem 
von ihm bestimmten Tag nur beginnen, wenn er 
sein Kfz voll getankt hat! Wenn das Kfz an diesem 
Tage nicht voll getankt ist, stimmen nachher einige 
berechnete Daten nicht mehr! 
Die eingegebenen Daten müssen als sequentielle 
Dateien gespeichert werden, um später wieder mit 
den neuen Daten in das Programm verarbeitet zu 
werden. 
In Zeile 150 müssen Sie das amtliche Kennzeichen 
Ihres Wagens eintragen. 
In Zeile 170 tragen Sie dann noch Ihren Wagentyp 
ein. (Die Daten in den genannten Zeilen sind nur 
Beispiele und jederzeit veränderbar.) 
Wenn Sie sich nun gleichzeitig neben diesem Pro- 
gramm auch ein neues Kfz (auch Leihwagen etc.) 
zugelegt haben, muß die Zeile 51090 so aussehen: 
51090 INPUT“WIEVIEL DM“ ;DS:GP=DS 


RB BISBNLLNNCRRCNNRRGEN: 3 UN RBTNANINBRD URN LRAHODORE SOLAR, 
FOTO 


Ein Programm für den „Profi-“ und Hobbyfoto- 
grafen, die mit den Begriffen Schärfentiefe, Entfer- 
nungsblendeneinstellung, Abbildungsmaßstab, Vor- 
satzlinsen, Farbtemperatur, Blitzberechnung und 
Tabellen etwas anfangen können. 

Aus diesen Menüpunkten kann zu Beginn des Pro- 
grammes ausgewählt werden. Sodann fragt das Pro- 
gramm nach den entsprechenden Daten, z.B. 
Brennweite, und rechnet dann die gewünschten Er- 
gebnisse selbständig aus. Weiterer Erklärung bedarf 
es eigentlich nicht, dem fotoversierten Anwender 
erklärt sich dieses Programm weitgehend von selbst. 
Anmerkung: Nach Änderung der >wait<-Befehle 
ist das Programm auch auf dem 128 PC lauffähig. 


LOTTOZAHLEN 

FE EREBRBEREINSENETRNEEBEN DE SRDSCRENERES 2 ENG DERNER OS RER ENENLLENNDEN, 
Bei Programmbeginn kann zwischen den beiden 
Möglichkeiten sechs aus neunundvierzig und sieben 
aus achtunddreißig gewählt werden. In beiden Fäl- 


Bitte lesen Sie weiter auf Seite 51 
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rem (cd) 
kerstin % ifrgen freund % = 
hermann »wallesen = 
rem version 2.0 40xz/ascii R = 
rem c=ö64 + 1530/1541 = 


2ONDOABURNH 
u | 
D 
5 


IiU rem KEKERKKHERERRKER TER ERERREKENR 
20 rem X elektronische zeitung x 
30 rem *X kerstin % Juergen freund X 
4) rem % hermann weilesen x 
So ren X 06/85 * 

NEON CHE KK CHOR R OK DRK ROOT BRKOHOEOIKOK 


0 ren 


75 pokef3280,0:rem hintergrund 

BG nokeä328l,Grrem bildschirm 

970 poke798, 52:rem runstop sperren 
100 prinkechre& (Olä)srem umschalten 
116 printchr$(Ööß)ıren umstellen 
120 printchr#$ (155) ırem schrift - 
printchr$i{il47)erem cir/home 

145 rem RPIOREREROKK programmstart % 


150 print" (adutomodem oder {h)and &b 
etrieb'"s; ; 

150 inputbe# 

170 i fbeti »"h"andbs$i >"a"theni&0 


180 PokeB70,asc (be$) 

1970 printchr$ (147), "elektronische 
zeitung" 

2D0velr 

210 open?, 2,0, chr& (A8)+chr$(9Pö)ırem 
ogeffmen zur 
220 rem XXX variabelen-definition & 
230 2$=echr$(00F)srem control c 

246 s$=echr$(01l9)ırem control s 

250 a$echrs/öüifd)srem control q 

240 »S=chrs(ößd)ırem vwontrol x 

270 cstechrs(147)srem cir/home 

230 res=chr$(ölß)srem revers ein 
290 rasechr&t{tläös)ırem revers aus 

300 bes=chrs(neek (8703) 

210 rem XXX menue % filenamen def * 

SEO n$(lL)="text 54 AerTung, StEntT 
Je'tert 64" 

330 n${(2)="vizawrite anleitung"ıf1l$ 
(a)elvei 

340 ni e"ulk 
Nik. 

330 n8 (4) ="infoboxr-nrogramm":fi$ (4) 

="infonaom" 

Sal nl)’ msg. von 

nermann":#18(5}="hermann" 

370 nSt(A}="ende der verbindung" 

>90 006256579, peek (56579)ord 

390 rem KEIRKKKERKEKKK handbetrieh # 

‚400 ifbet="h"thenwaiti98,1ınokel98, 


rs 23 FORTE 


und klamauk"ıtflsiä)e 


40 


06/85 bv w. 


Os print "ok! yaoto529 


410 rem 
415 rem 


automglen betrieb warten % 
auf signal an der rs 232% 


420 printtab (12) ıg®: "automodenbetri 
eh "40% 
420 p0ke359797, Deek (55377)orB 


440 poke5s577,0 
450 a=neek (54577) 
As Foru=ltodo 
470 a=peak (55377) 
430 ifneek (56577 =athend4Bo 
490 next 
oo 
printtab (15) sre$: "anruf!'ititi'"tsras 
Sid rem BOBDCKBKK carrier-abfrauge X 
320 PDke36377,.8 
SO yel 
S46 fora=ito4ü0 
Sao get#z,as 
San itfasechr$ (1) tchenäro 
70 ifa$=""thengeta$:ifas=""chennex 
t:gotos70 
>80 ira >""thenyey+tliityiöthennert 
S90 fora= 1ta5000 
SÜD neh : 
10 gosub1B40: gosub1840: gasuk1840 
Bee ana Kmmadare. „Chen 
stem" 

ZU gosubi340 
an gosubi840:gasub1840: gosubiLSHc 
Sau mm" hauptemenue' - 
Gau gmsubiäd4o 
6705 gosubl840: aaosub1lB40 A 
5 Fori=eltoh 

rem 

nenleaufbau 8 
HD rbeskrtliit) 
790 gosubi1L340 
710 goasunlB40 
720 next 

30 gosubiBdn 
746 rS="dein wunsch 
750 gosub1240 

780 rem BORKKRKKKK tastaturabfrage 8 
779 age"! 

720 forskeltoi0oo 

799 get#Z,a# 

BIO ifa$=""Chengeta®: ifase""thennex 
ketctel 
BLU rh=as 

BEO aosubiE40 

8:0 iftt=lthen] 7Oo 

240 gosubi2dc:gosubl1840 


schleife zum 


+n$Ci) 


ur) u 


B50 awval las) 
Ba ifa=stheni750 
870 ifailiora>5thenr$="leingabefahler 
"rast! rgasubl AlngosublB4Chdn 
tn6d4ö 


BO 
870 


980 
3790 
LOOC 
1010 
LORG 
1030 
a" 
1040 
1050 
IRA] =10) 
= eh) 
1070 
1080 
10970 
1100 
L1%O 
1120 
1130 
1140 
1150 
’the 
1160 
1170 
meh 
vone 
1180 
a al. ®, 
1:00 
u ut " 
1210 
LARO 
PER) 
1240 
1250 
1260 
1270 
1280 
1290 
100 
1310 
1320 
330 
1340 
1350 
1:0 
170 
190 
10 


13970 


Fi$=fl$(a)+",s;,r" 
PER ans (alt nk" 


> gosubl40 


gnsub1l940 
gat.oF FO 
openi,8, 2, #1% 


' rem % abfrage des fehlerkanal * 


open, 8,15 

inputH#i,a 

closel 

"lose: 

ifa>rötbrheniZö0 

gosubilg40 

rem XX%k einlesen von Floppy * 
openil,8,2, 1% 

URS aan cer taste un 


gansubıLFAn 

gosub 1340 
r$="sestonp g=estart x=abbruch c 
erspringen" 
gosubL 40 . 
gosubi840:gosub1L 840 
ak: es z---msg. nn u 
gosublä4d4l 
gasub1340: gosun 1840 
Y“ mm ua j 

get#1l,a® 

rsertraß 


niıao 

itst>ö5thenl2öö0:rem dateiende 
ifag="$"theni?40:rem 8: trennt 
er teile 2ines files 

inander 

itası chr$(1D)theniid5o 
gosunl 40 

ittrseutandf$i >c$andtt=üthenr$ 
gatali3o 

ifit=ltheni7Oo0 
iff$ex$thencoloseiigotos40 
itrf$=ec$thenls50 
ansub 1 BAG: gaosub 1840 

aut LOBO 

elosel 

elosen 

gosub 1840 

r&="dJateiende"” 

Jos id 

gusubi1B40 

at 

rem string ber rsZ32 senden % 
forl=itolen(r$) 
bbemid$ (rt, 1,1) 
itb$=""thenbbm"t " 

ger, f® 
iff$=""thengetfS:iff$=""theni4 


iff$=5$t:henl570 


AUÖ 
1410 


"1420 


1430 
1440 
1450 
1480 
1470 
1480 
1490 
1500 
1510 
1320 
15:0 
1540 
1.396 
1560 
1570 
1580 
1999 
1,00 
1610 
tt=1: 
1420 
17.2:49) 
1540 
1650 
55) 
1670 


iff$ex$orfSec$thenreturn 
as=asıc {b$+chr&(ö)) 

itrası YLandas>&sdtnenassas+!2 
atechr#las) 

printb%; 

cmd2, " Er 

pbrintass 

poke791,015ys65481 
ifast>15theniS54o 

fora=1to20 

next 

emd?, " is 

printchr$(10)3 
poke781,Chsys6sä4gl 

next 

return 

rem KKRKKK control q rautine X 
y-1 

get#i,f%$ 

itf$=a$then1370 

getfs 
ifr$=""Chenyeytliity=E00oothen 
gntol4ld 

itf$=qa&$ihen1l370 

gotolLS80 

rem RERKKK control c routine % 
get#1l,as 

ifstisdandas: >"8'"then1&5o 
ifas="8'"thenifsti=s:thengosubl 


84: gaotmLOBO N 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
18004 
1810 
1320 
1830 
1840 
1850 
1360 
1370 
1830 
1890 
1F?00 
1910 
1920 
1250 
19740 
1950 
1940 


ifst>63tchenil2&0 

rem IRRE Limeout * 
ansubiB4o:gosub1B40 

rs="time oub" 

gosubiF40 
gosub1840: gosub 1340 

rem beenden der verbindung % 
rs="tschuess bis bald „.. " 
gosub 140 
gosublB40:gosub 1LB4U 
r$="verbindung wird beendet" 
gosun 140 

fori=itoR0O00 

net 

gota190 

rem X%X lserzeile 7ber rs232 
print 

EM EN 

printchr${13); 
printchr$(10)3 
poke7dl,lısys&sh4gil 


retien 

wemtinfo-bax! ser=s===S-435 2 BA 
rem 039911 bytes memary sem 
rem GO4506 bytes program mm 
ram OCO000 bytes variables === 
rem 0DOOOOO bytes arrays ee 
rem GOOOGO bytes string umm 
rem ON4405 bytes free (0) z== 


Erz WIRTSCHAFTLICHKET-": 


10 rem kfz wirtschaftlichkeit ===20 
20 rem (p) 02/86 cbm + cw team ts = 
30 rem =======-=-=-=== === === 222222220 
40 rem (c) 06/85 

50 rem by hartmut schultheis 
60 rem 

70 rem version 2.0 22z/ascii 
80 rem vc-20 + B kb +1530/1541 
90 rem =======-=-=-==-= 2222222202222 
deffnau(x)=int ( (x*100)+0.5)/100 
cd$=chr$ (017) 
rn$=chr$ (018) :re$=chr$ (028) 
gr$=chr$ (030) :bl$=chr$ (031) 
bk$=chr$ (144) :rf$=chr$ (146), 
c1$=chr$(147) :pu$=chr$ (156) 
forq=1t03:c3$=c3$+cd$:nextq 
cy$=chr$ (159) :gosub2110 ’ 
180 printc1l$c3$bl$"dieses programm 
bere- "cd$'chnet die wirtschaft-" 
190 printcd$"lichkeit des wagens :" 
200 printcd$re$rn$'"ac - hs 49"rf$ 
210 printc3$bl$"wagentyp :" 

220 printcd$gr$rn$'"ford taunus tuni 
er"rf$ ? 
ZIUOEPFINTCEISCHSCASEY SEN LEE NA taste 


en DR Be er | 


geta$:ifa$=""then240 
ifer%=ithen2210 
printci$bk$"datum ";:inputda$ 
270 printcäd$cd$pu$'" haben sie getan 
Kt.:?2% 

280 printcd$'" "gr$rn$'Y'n"rf$"ein/'rn 
$"v'rf$"oll/"rn$"t'rf$"eilweise" 


290 geta$:ifasg< >"n"andas< >"v"andag<. 


>"t'then290 

300 ifa$='"n'"thenkd%=1:g0t0410 

310 ifa$='"t"thenkd%=1:g0t0340 

320 printc3$re$"bei kilometerstand 


ı:cd$ 

330 inputks:printcd$bk$:g0t0350 

340 printc3$cd$bk$ 

350 input'wieviel liter ";li:il=eli 
360 printcd$cy$ 

370 input'wieviel dm ";ds 

380 printc3$bl$"stimmt alles ? (j/ 
n)" 

390 getas:ifa$< >"j"andas< >"n'"then39 
0 

400 ifa$="n"thenkd%=0 :390t0260 

410 printcl$re$" "rn$'"wirtschaftlic 
hkeits-'"rf$ 

420: printinsauas; "rn$'"berechnung''rf$ 
430 printc3$gr$"...'rn$"1'rf$bk$" d 
urchschnittsver-"cd$"..... brauch’ 
440 printcd$gr$'"...'"rn$'"2"rf$bk$" t 
ankkalkulation' 

450 printcd$gr$"...'"rn$"3'rf$bk$" w 
agenkosten' 


‘ 
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460 printcd$gr$'"...'"rns'"4'"rf$bk$" d 
aten laden" 

470 printcd$gr$'"..:'rn$'S"rf$bk$" Ad 
aten speichern" 

480 printcd$gr$"...'"rn$"6'"rf$bk$" e 
nde'' 


490 printc3$pu$" "rn$'"bitte waehle 
n sie'rf$ 

500 pf=pf+1 

ifpf=1then560 

ifpf=2then590 

ifpf=3then630 

540° ifpf=4then660 

550 gosub670:g0t0880 

560 poke38174,6:poke38175.,6:poke438 
2,45:poke4383,62:poke37998,4:poke42 
06,81 

570 poke38086,4:poke4294,81:poke381 
30,4:poke4338,81:poke38218,4:poke44 
26,81 

580 900740 

590 ifkd%=1then500 

600 poke37998,6:poke37999,6:poke420 
6,45:poke4207,62:poke38086 ,4:poke42 
94,81 

610 poke38218.4:poke4426,81 

620 gosub670:90t0770 

630 gosub670: ifpeek (4338) =-8B6then500 
640 poke38130,6:poke38131,6:poke433 
8,45:poke4339,62:poke38218,4:poke44 
26,81 

650 got0820 

660 poke38218,6:poke38219,6:poke442 
6,45: poke4427,62:gosub670:g0t0880 
670 ifak%=1ithenpoke37998,3:poke4206 
‚86 

680 ifbk%=1thenpoke38086,3:poke4294 
‚86 

690 ifck%=1thenpoke38130,3:poke4338 
‚86 

700 ifdk%=1thenpoke38174,3:poke4382 
‚86:ifdv=Othenpoke37998,4 

710 poke4206 ,81:poke38086,4:n0t4294 
‚8 

720 ifek%=-ithenpoke38218,3:poke4426 
‚86 

730 return 

740 geta$:ifas< >"4"anda$< >"6"then74 
0 

750 ifa$='"4'"then1700 

760 goto1140 

770 geta$:ifa$g< >'"i"anda$< >"3"andas< 
»"4'"anda$< >"6'"then?770 

780 ifa$='"1'"then1430 


790 ifa$="3"then1230 


800 ifag="4"then1700 
810 g0t01140 
820 getas:ifas< >"1"andas< >"2"andag< 


kfz WIRTSCHAFTLICHKEIT 


»"3"andag< >"4'"anda$< >"6"then820 

830 ifag="1'"then1430 
ifa$="2'then920 
ifa$='"3'"then1230 
ifa$="4'"then1700 

goto1140 

geta$:1ifa$=""then880 

890 ifas<>"i"anda$s< >"2"andag< >"3'"an 
da$< >"4'"anda$< >"5"andag< >'"6'"then880 
900 a%=val(a$) 

910 ona%got0o1430,920,1230,1700,1580 
‚1140 

920 printcl$re$"...tankkalkulation" 
930 printc3$bl$'"was haetten sie ger 
ne "cd$"berechnet ?' 

9AU printcdgpuüs. :.. ... "rn$'k'"rf$'m 
SNEICNSTLNTTSU rer 

950 getas:ifag< >'"k'"andag< >"1"then95 
0 

960 ifa$="1"then1030 

970 printcd$cd$gr$'"fuer wieviel lit 
er ?'"cd$ 

980 inputi 

990 ak=(i/gv)*100 

1000 ak=fnau(ak) 

1010 printcd$cd$bk$"damit kommen si 
e ca. "cd$ak'km weit." 

1020 goto1110 

1030 printcd$gr$"fuer wieviel km ?" 
cd$ 

1040 inputkn 

1050 al=(gv/100)*kn 

1060 al=fnau(al) 

1070 ap=ip*al 

1080 ap=fnau(ap) 

- 1090 printcd$bk$'"sie brauchen dafue 
KIN NCAS Ca. Tal liter. 

1100 printcd$"( ="ap'dm )'" 
1110 printcd$cd$cy$" 

1120 geta$:ifa$=""then1120 
1130 pf=pf-1:bk%=1:g0t0410 u 
1140 ifek%=1then1220 

1150 printcl$cd$cd$bk$'"das waere ab 
er nicht "cd$'klug, da sie die da- 


taste" 


1160 printcd$'ten, die fuer die sta 

-Neas"tistik wichtig sind, ı.; 

1170 printcd$"nicht speichern !!!" 
1180 printc3$cd$pu$'"wollen sie noch 
einmal'"cd$"zurueck ?' } 

1190 printcd$cd$cy$"...... (wen 


geta$:ifa$<>"j"anda$< >"'n"thenl 


ifa$="j"thenpf=pf-1:90t0410 
printc1l$bk$:poke36879,27:end 
printcl$re$' wagenkosten' 
printcd$cd$bk$'"haben sie neben 


kosten?" 


"L290,PRINEPUSN 0“ WITZ 


1260 gk=bb:gp=aa+tds 

1270 geta$:ifa$<>"j"andas< >"n"thenl 

270 

1280 ifa$="n"then1320 

1290 printcd$gr$'"nebenkosten 

1300 input'"dm ";nk 

1310 gp=gp+nk:g0t01330 

1320 printcd$cd$ 

1330 ifgk=0Otheni1360 

1340 pk=gp/gk 

1350 pk=fnau(pk) 

1360 printcd$bl$"ihr kfz. kostet si 

e..."cd$'pro km :'"pk'dm" 

1370 printcd$cy$"der wagen hat sie. 
."cd$"schon'gp"dm" 

1380 printcd$"ingesamt gekostet 


"cd 


1390 PRINLCASPUST N U taste" 
1400 geta$:ifa$s=""then1400 

1410 ifck%=1ithenpf=pf-1 

1420 ck%=1:9g0t0410 

1430 printcl$re$'"durchschnittsverbr 
auch' 

1440 printcd$bk$'"der durchechnitten 
er- "cd$"brauch betraegt :'" 

1450 printcd$dv'"liter auf 100' 

1460 printcd$'km.'" Ü 

1470 ifkd%=10orak%=1then1490 

1480 gd=gd+dv:ei=ei+l 

1490 gv=gd/ei 

1500 gv=fnau(gv) 

1510 printcd$cd$gr$'"der gesamtdurch 
TERN. "cd$"schnitt, liegt bei" 

1520 printcd$gv'"liter auf 100" 

1530 printcd$'km.' 

1540 printcd$cd$cy$"...... „.taste" 
1550 geta$:ifa$='""then1550 

1560 ifak%=1orkd%=1thenpf=pf-1 

1570 ak%=1:9g0t0410 
1580, printcl$cd$re$'".. 
ern" 

1590 printc3$bk$'"datenband einlegen 


.daten speich 


1600, Printcdsgrs "u." taste" 
1610 geta$:ifa$=""then1610 
1620 printc3$pu$'"daten werden gesic 


hert'"c3$b1l$ 

1630 openl ,1,1 

1640 print#1,gp:print#1,gk:print#1, 
gd:print#1,gv 

1650 print#1l,ei:print#1,da$:print#i1 
‚ks:print#l,li 

1660 print#1,dv:print#1, 34, print#1, 
ds:print#1.kk 

1670 closel 

1680 ifff=Othen1220 
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1690 ek%=1:g0t0410° 
1700 printcl$cdä$re$"..... daten 


laden" 

1710 printc3$bk$"datenband 
einlegen!!!" 

1720 .printeasgrs..,. .. 2... taste" 


1730 geta$:ifa$="'"then1730 


1740 printc3$pu$'"daten werden gelad 


en'"'c3$bl$ 

1750 open1,1,0 

1760 input#1,aa:input#1,bb:input#1, 
cc:input#1,uu 

1770 input#1,dd:input#i,,ee$:input#1 
‚£ff::input#1,gg 

1780 input#1,hh:input#1 ii: input#1, 

Jj3 :input#1,kk 

1790 closel 

1800 printcl$bk$'"diese angaben sind 

VOM. CAS. ir, 'ee$ 

1810 printcd$cd$re$"seit verwendung 
dieses"cd$'"programms, sind sie" 
1820 printcä$bb'km gefahren." 

1830 printc3$bl$"ihr wagen hat sie 

bis "cd$'zu diesem zeitpunkt" 

1840 printcd$aa'"dm gekostet." 

PEINTESSETR N 5. 000% taste" 

geta$:ifa$=""then1860 

printcl$cd$bk$'"der letzte durc 

h-....."cd$"schnittsverbrauch lag" 


1880 printcd$'"bei"hh'"liter auf". 
1890 printcd$'100 km." 

1900 Ip=jj/ii 

1910 1Ip=fnau(lp) 

1920 printcd$cd$gr$'"der kraftstoffl 
iter- "cd$'"preis betrug'"1lp"dm." 


1930 printcd$cd$re$'"nun geben sie w 
eitere '"cd$"daten ein!!!" 
PLINECISCEYSU. LH, taste" 
ifkd%=1then2010 

li=sli+gg 

di=ks-ff: ED ERNLUHRAAENEE, 
dv=(1i/di)*100 

dv=fnau(dv) 

l1i=0:kk=0:90t02040 
ifkk=Othenkk=1: g0t.02030 
li=sli+gg 

dv=shh:ks=ff:gv=uu _ . 
gd=cc:ei=dd 
ifds=Othenil=ii:ds=jj :g0t02080 
lp=ds/il 

lp=fnau(1p) 
geta$:ifa$="'"then2080 
ifdk%=1thenpf=1 
dk%=1:g0to410 
poke36879 ,25 

2120 printcl$cd$cds$bl$'" 
haftlichkeits-"rf$ 

238902 print a. "rn$"berechnung"rf 


"rn$"wirtsc 


.44 


go% 
2140 printc3$cd$gr$"(c) 1985" 

2150 printcd$"hartmut schulteis" 
2160 printc3$cd$cd$pu$'"kurze erlaeu 
terungen '"cd$'"zu diesem programm ? 
2170 printesgcdgeV9"; 5, ( 
2180 geta$:ifag< >"j"andag< >"n'"then2 
180 

2190 ifa$="n"thenreturn 

2200 er%=1:return 

2210 printcl$re$'"benutzen sie das p 
ro- '"cd$'"gramm zum 1. mal ?" 

2220 printcdscys" sa... (Ryan 
2230 geta$:ifa$< >"j "andas< >"n"then2 
230 

2240 ifa$="n'"then2350 

2250 printcd$cd$bk$"datum "; 
as 

2260 printcd$cd$gr$"bei kilometerst 
and :"cd$ 

2270 inputks:printcd$bk$ 

2280 input'wieviel liter ":il 

2290 printcd$cy$ 

2300 input'"wieviel dm ":;ds . 

2310 printcd$cd$bl$"stimmt alles ?. 
(3/N) ; 

2320 geta$:ifag< >"j"andas< >"n"then2 
320 

2330 ifa$="n"thenprintcl$cd$cd$:got 
02250 

2340 goto1580 

2350 rem erlaeuterungen 

2360 printcl$re$"...'"rn$"erlaeuteru 
ngen'rf$ 

2370 printc3$gr$'"es wird berechnet 
.."cd$cd$pu$'"gesamt- und tankfuel 


:inputd 


2380 printcd$'"lungdurchschnittsver- 
"ced$'"brauch, tankkalkula-" 

2390 printcd$"tion, wagenkosten ins 

-"cd$'"gesamt und pro km und" 

2400 printcd$"literpreis.'" 


ZalU primeossDls.... 5, taste" 
2420 geta$:ifa$=""then2420 

2430 printcl$pu$"symbolerklaerung 
2440 printcd$bl$"->"bk$'" tipvorschl 
ag vom...'cd$"...computer! 

2450 printcd$pu$'Q'"bk$'" nicht anwa 
ehlbar" 

2460 printcd$cy$'"V"bk$" schon ange 
waehlt'" 


-2470 printcd$gr$'"sie koennen einen 


pro-"cd$"grammteil nochmal an-" 
2480 printcd$'"rufen, wenn sie glau- 
"cd$'"ben, eine korrektur" 


KFZ-WIRTSCHAFTLICHKEIT 


"cd$"ben, eine korrektur' 
2490 printcd$'"vornehmen zu 
muessen." 
2900, PLINECASCASD IS... 2... taste! 
2510 geta$:ifa$=""then2510 
2520 gqgot0260 
2530 rem ============-=======22 022022 
2540 rem kfz wirtschaftlichkeit==20 
2550 rem 19967 bytes memory ==== 
2560 rem 07374 bytes programm ==== 
2570 rem 00000 bytes variables ==== 
2580 rem 00000 bytes arrays ==== 
2590 rem 00000 bytes strings ==== 
2600 rem 12593 bytes free ==== 
2610 rem ==>=====-==-= == === === 2222000 
2620 rem urkundendruck vc-1520 ==20 
2630 rem 28079 bytes memory ==== 
2640 rem 07646 bytes programm ==== 
2650 rem 00105 bytes variables ==== 
2660 rem 00000 bytes arrays ==== 
2670 rem 00017 bytes strings ==== 
2680 rem 20311 bytes free ===. 
2690 =====2==22=e=202 === 20200002 


rem 


BÖRSE 


Suche Tauschpartner für 
VC-20 Programme bis 3K 
Erweiterung (kostenlos) 
Achim Bergweiler, Händel- 
str. 20a, 5560 Wittlich. 
Tel. 06571/7655 


Schweiz 043/311069 Schweiz 
KrkKKKK 

"Suche Kontakt zu C-64/C- 

128-Besitzern (vor allem 

aus CH). Habe diverse Hard- 

ware (Liste anfordern), 

suche Software. 

Rolf Kuettel 

Sportplatzweg 4 

CH-6440 Brunnen 


KK FKEKKFF F FE + 


Suche Floppy auch defekt für 
C64 bis 200 DM 

MANFRED FIJALKOWSKI 
Jahnstr. 46, 6633 Wadgassen/ 
Saar 
Peer ee ereoer2e nn re 
C16/C116/Plus 4 — Super- 
spiele! Info gegen Rückporto 
bei Hannes Kaltenbach, Priel- 
mayerstr. 16, 7990 Friedrichs- 
hafen 1 

C-64 gebraucht zu kaufen ge- 
sucht. Martin Welz, 

Tel. 02244/3699 
Graefenhohnerstr. 60, 

5330 Königswinter 41 

Kaufe und tausche Program- 
me für C64. Suche vor allem 
gute Adventure. Alle Pro- 
gramme nur auf Cassette. 
Angebote bitte an: Thomas 
Heyer, Poststr. 25, 4048 
Grevenbroich 2 


C-64. Suche Farbmonitor mit 
Ton bis 200,— DM. Verkaufe 
Fußballmodul Soccer für 
20,— DM. Suche Lightpen 
bis 10,— DM. Suche Paddles- 
paar bis 20,— DM. Suche 
Disketten (neu) bis 1,— DM 
pro Stück. 

D. Arnold, Kirchheimer 

Str. 15, 7317 Wendlingen/N. 
Tel. 07024/7364 

Achtung: Suche für VC 20 
billige Programme . 

Meik Hosse, Strehlender 

Str. 25, 4690 Herne 1 

Suche alle Sprachen für 

C-64 nur Module zusätzlich _ 
Drucker und 1541 billigste 
Angeb. erhalten Zuschlag. 
Annahme nur in 1A Zustand. 
K. Weiß, Hauelstr. 20, 

5000 Köln 71 

Verk. VC-20/Bücher/Data- 
sette/Spielesteckmodule/ 
Joystick/Tasche. Und das 
alles für 250 DM. Tel. 02369/ 
21931 ab 18 h. (Sascha)!!!! 
PS: Mit Bildschirm kostet 
der Computer 300,— DM. 


Suche Drucker für meinen 
C-116.Zahle bis 100 DM. 
Angebote an: Dietmar 
Muyrers, Am Schacht 52, 
5190 Stolberg 

Verkaufe: VC-20 + 32K Erw. 
(voll schaltb.) + Zub. + Soft- 
ware; Angebote an: J. Wichel- 
haus, in der Beek 42, 5600 
Wuppertal-1!1!! 


*** Suche Hardware bzw. 
Drucker für VC-20. Tausche 
Software. Außerdem suche 
ich Tips und Tricks. Nehme 
auch defekte Sachen an!! 
Absender: Marko Görg, In 
den Wingerten 49, 6100 
Darmstadt 23, T. 06150/ 
82996. Nehme fast alles 
an!! Also beeilt Euch!!! 
C64 Anwender, Hilfspro- 
gramme und Spiele 

Listen gegen frankierten 
Rückumschlag (1,80) 

W. Schreiner, In der 

Laach 27, 5400 Koblenz 33 


Verkaufe: „INPUT 64“ (2/85 
und 3/85) (Cassette und 
Begleitheft) VB: zusammen 
15 DM Div. Computer-Zeit- 
schriften Neuwert: 100 DM, 
VB: kompl. 35 DM 

Jörg Güttel, Kölner Str. 99, 
5650 Solingen 1 

Verk. für VC 20 VC 1020 
Modulbox —3K Supererw. 
1211 A- *K-VC 1110 — 
16K — VC111 —VIC 1212 
Prog — H — VIC 1213 — 
Masch-Monitor-Preisverh 
Bais ab 19 h. 

Tel. 06182-27115 

Hilfe: C128/Commodore- 
Drucker 1526 Wie installiere 
ich den Drucker bei Nordstar, 
dBASE II und Multiplan? 
Deterin Rhönstr. 18, 

6204 Taunusstein 2 

T. 06128/41769 

Suche zuverlässige Tausch- 
partner für C-64 und 

C-16. Ralf Adling, Lingener 
Str. 6, 4576 Berge 

Tel. 05435/481 


Suche Anwendersoftware 
für C-128 (public 00 main), 
Listen bitte an: Thomas 
Weber, Odinspfad 2, 

6900 Heidelberg 

Verkaufe VC20 + 3K + 8K 
Erweiterung + Philips Data 
Record + Schn. Stelle + 
VCI919 Sargo II + Basic 
Kurs + Joyst insg. DM 200,— 
Bach WBN-Biebrich am 
Schloßpark 27 

Tel. 06121/66323 
Verkaufe: Seikosha GP 100 
VC Graphik Drucker DM 
200,— 1 Jahr alt wie neu 
sowie orig. Data Becker 
Kontomat ungebraucht 
DM 60,—. Suche: Astro- 
Software nach Ebertin, nur 
Profiprogr. bzw. Lebens- 
diagramm. G. Ruhdorfer, 
Radeckerstr. 14, 

8000 München 60 


rs 


Wer hilft mir, ich möchte Pro- 
grammdisketten vom C64 mit 
Floppy 1541 auf Commodore 
Plus 4 laufen lassen 

Robert Landgraf-Leipziger- 
str. 16, 6842 Bürstadt 

Nun ist es soweit: Rex-Soft 
hat nach seinem Riesenerfolg 
auf dem TI nun den Club auf 
dem Commodore 64/128 PC 
weiterverbreitert. Es wird eine 
Clubzeitschrift in Simons- 
Basic geboten. Ein Clubtreffen 
mit den TI-Freaks steht an!!! 
Meldet Euch bei: M. Rattel- 
müller, August-Bebel-Str. 11, 
6454 Bruchköbel 1 

*** Achtung *** 

Möchte C-128 Club gründen. 
Suche noch Mitglieder im 
Raum Edenkoben 

Stefan Schittly 

Hauptstr. 36 

6731 Böbingen 

Ich biete gute C-16/116 
Software zum Tausch auf 
Cass. an. Listen an oder 
gegen 80 Pf. anfordern 

bei: Stefan Boysen, 
Holtschoostrot 61, 

2263 Herrenkoog oder 
04661/5266 E 

Suche und tausche C-16 
Programme auf Disk und 
Cass.‘Listen an oder 

gegen 80,— anfordern bei: 
Henning Küster, 

Deezbüller Str. 22, 

2260 Niebüll oder 
04661/3634 

Bitte nur abends anrufen 
Verk. CBM 8032 + 4fach 
Epromplatine + Exbasic + 
Floppy 8050 + Software + 
Verbindungskabel VB 

2600 DM. 

Tel. 07973/5126 abends 
Verk. Lichtgriffel für C64 
oder VC 20 unbenutzt und 
original verpackt 45.00 DM 
Tel. 07973/5126 abends 
Wanted! Progr. (C64/1541) 
Astrologie + Tarot + I Ching 
+ Handstruktur + Grafik- 
darstellungen aller Art 
dringend gesucht: Drucker- 
softw. (8x8 Matr.) Seikosha 
GP700 VC, (8x7 Matr.) 

MPS 803 

Detlef Biel, Reeperbahn 12, 
22 Elmshorn 

Tel. 04121/1558 

*+#** VC.20 VC C-20 ** 
VC-20 **+** 

Suche DFÜ Software für 
VC-20 GV/16K (Terminal- 
prg.) Angebote an: 

Markus Naumann, Weiters- 
bachstr. 7, 3507 Baunatal 4 


FOTo 


10 rem 

20 rem (p) 02/86 cbm +. cw koam ts== 

30 rem ====-=-=-=-==-========= == === 

40 rem (c) 12/85 = 

50 rem by “ 

60 rem bernd welte = 

70 rem version 3.5 40z/ascii = 

80 rem c16/c116/plus4+1541/1531 = 

90 rem ==+====-=-=-======== === == mom 

100 printchr$ (014) 

110 c4$=chr$ (017) :c1$=chr$ (147) 

120 re$=chr$ (028) :bl$=chr$ (031) 

130 rn$=chr$(018) :rf$=chr$ (146) 

140 zz$=chr$ (042) ä 

150 forg=1tol0:qga$=qga$+c4$:nextq 

160 forg=1t03:93$=q3$+c4$:nextq 

170 forg=1t040:gb$=qgb$+zz$:nextq 

180 ze=2035:sp=2036 : cu=65520 

190 wd$='"Weitere Daten ? (j/n)" 

200 wt$="Weiter bitte Taste" 

210 bw$='"Bitte waehlen Sie" 

220 printcl$gb$; 

230 DEIHENT U RT 
e wo 

240: printing... A&B Welte Soft 

WARE Le RS 

ZOO TORE RE Age 

wn 

260 printgb$; 

270 print 

280 print 

290 print" (1) Schaerfentiefe. 

300 print 

310 print" (2) Entfernungs -Blenden 
Einstellung" 

320 print 

330 print" (3) Abbildungsmassstab' 

340 print 

350 print" (4) Vorsatzlinsen....' 

360 print 

370 print" (5) Farbtemperatur..." 

380 print 

390 print" (6) Blitzberechnung..' 

400 print } 

410. print 62) Tabellen...” N 

420 print 

430. BRINENN CO) ERS. er 

440 print 

450 print". .Bitte waehlen sie das 


Modul aus" 

460 geta$: ifa$=""then460 
ifa$g='"1'"then560 
ifa$='"2'"then1080 
ifa$="3'"then1310 
ifa$='"4'"then1760 
ifa$='"5'"then2650 
ifa$='"6'"then1980 


foto=====------=-=c016/c116/p4 . 


580 


esser in mm": 


590 
600 
610 


ifa$="7'"then3010 
ifa$="8"thenend 

goto460 

printcl$ 
DBTINE! 0, Schaerfentiefent 


‚Zerstreuungskreisdurchm 
print:inputc$ 


Print", 


c=val(c$) 
c=c/1000 
print:print'Brennweite in mm':p 


rint:inputf$ 


620 


f=val(f$) 
f=f/1000 
print:print"Gegenstandsweite. in 


:print:inputg$:printcl$ 


g=val(g$) 

ifg>fthen?710 
printc4$re$'"....Bedingung'b1l$ 
printc4$rn$"...Gegenstandsweite 


.als.Brennweite...";. 


BLLUSLLEN UN en ":rf$ 


700 


800 
810 
820 
830 


print" Neuer Wert': AEIRNME 
g=val(g$) 

w=sgr (2) 

b=1 

fori=-1to1lO 

h=f*f/(b*c) 

k=h*g/ (h+g-f) 

ifh+f >gthen890 
b=int((b+.05)*10)/10 

h=int ( (h+.05)*1000) /1000 
k=int((k+.05)*1000)/1000 
l=int ((1+.05)”*1000)/1000 
pokeze ,3:pokesp,10:syscu 
print"Blende'; :printtab(28);:pr 


intusing"'##.##'";b 


840 
850 


pokeze ,6:pokesp ,d:syscu 
print'Hyperfokale Entfernung "; 


:printusing'###.####':h: :print'" m" 


860 


PRINLCAS: U LEN minimale 


Entfernung 


"»sprintusing'’'###.####':;k: 


m' 
870 


nung 


ne! 
880 


!'print. 


PEINLEAS N. Hau. maximale Entfer 
";:printusing'"'###.####"; 1; :pri 
m“ 

goto1000 

l=h*g/(h-g+f) 
b=int((b+.05)*10)/10 

h=int ( (h+.05)*1000) /1000 

k=int ((k+.05)*1000)/1000 

l=int ((1+.05)*1000) /1000 

pokeze ,3:pokesp,10:syscu 
print"Blende';:printtab(28);:pr 


intusing'##.##";b 


960 


pokeze ,6:pokesp,4:syscu 


FOTO 


970 print'Hyperfokale Entfernung "; 
:printusing'###.####'";h; :print" m" 


980’ printc48".2. minimale Entfer 
nung ";:printusing"###.####":k; :pri 
nt „ m" # & 
IINPTINECAS" N maximale Entfer 
nung ";:printusing'###.####";1;:pri 
nt L2} m! 

1000 b=b*w 

1010 char1,12,20,wt$ 


wait198,63:nexti 
char1,12,20,wd$ 
geta$:ifa$=""then1040 
ifa$="j"thenprintc1l$:g90t0600 
ifa$='"n"then220 

goto1040 \ 
1080 printcl$g3$'" Optimale Entfernu 
ngs Blendeneinstellung' 

1090 printqg3$"..Zerstreuungskreis D 
urchmesser in mm’ 

1100 print:inputc$ 

1110 c=val(c$) :c=c/1000 

1120 printc4$'" Brennweite in mm":in 
putf$:print 

1130 f=val(f$) ::f=f£f/1000 

1140 print:print'" Minimale Entfernu 
ng in m’:inputk$:k=val(k$) 

1150 print:print'" Maximale Entfernu 
ng in m'":inputl$:1=val(1$) 


1160 g=2*k*1/(k+1l) 

1170 h= (2*k* 1-£f* (k+1l))/(1-k) 

1180 b=f*f/(h*c) 

1190 g=int((g+.005)*100)/100 

1200 h=int ( (h+.005)*100) 7100 

1210 b=eint((b+.05)*10)/10 

1220 printcl$cd$' Optimale Enfernun 


[oT =",;g'm':print 

print:print" Hyperrokale Entfe 
rnung =";h'"m'":print 

1240 print:print' Mindest Blendenwa 
hlar.„="sDrprint 

char1,10,20,wd$ 
geta$:ifas=""then1260 
ifa$="j'"then1080 
ifa$='n'"then220 

g0ot01260 

rem abbildungsmassstab 
BFINEALPTOBN A. NEUN: Abbildung 
smassstab" 

1320 printc4$"...Alle Masse bitte i 
n mm eingeben." ! 
1990: printeas nr. Was soll berech 
net werden?" 

1340 printc4$ 


TS PRINESABU nn la (1) Abbildu 
ngsmassstab'" 

13900 präntesg..n een: (2) Auszugs 
verlaengerung'" 


— 2— 
1370 printc4$".......... (3) Brennwe 
"ite" 
13880, PFINnteäs.... u (4) Hauptme 
nue" 
1390 char1,10,20,bw$ 
1400 geta$:ifa$='""then1400 
1410 ifa$="1"then1460 i 
1420 ifa$="2"then1560 
1430 ifa$="3'"then1660 
1440 ifa$='"4"then220 
1450 goto1400 
1460 printci$qg3$"..Abbildungsmassst 


ab" :print:print 

1470 printc4$'" Brennweite'":print:in 
putbr$:br=val(br$) 

1480 printc4$'" Auszugsverlaengerung 
":print:inputas$:as=val(as$) 

1490 ab=as/br 

1500 printc4$'" Abbildungsmassstab': 
print:print:printtab(7) ;ab":1'" 

1510 chari1,10,20,wd$ 

1520 geta$:ifa$=""then1510 

1530 ifa$="j'"then1460 

1540 ifa$="n'"then1300 

1550 goto1510 
1560 printcl$g3$" 
ung'":print:print 
1570 printc4$" Brennweite'":print:in 
putbr$:br=val(br$) 

1580 printc4$" 
Abbildungsmassstab":print:inputab$: 
ab=val(ab$) 

1590 as=br*ab \ 

1600 printc4$'" Auszugsverlaengerung 
":print:printtab(7) ;as'mm' 

1610 chari1,10,20,wd$ 

1620 geta$:ifa$=""then1620 

1630 ifa$='"j'"then1560 

1640 ifa$='"n'"then1300 

1650 goto1620 

1660 printcl$q3$"....Brennweite..... 
..":print:print i 

1670 printc4$'" Auszugsverlaengerung 
":print:inputas$:as=val(as$) 

1680 printc4$'" Abbildungsmassstab': 
print:inputab$:ab=val(ab$) 

1690 br=as/ab 

1700 printc4$'" Brennweite':print:pr 
inttab(7) ;br'"mm’ 


Auszugsverlaenger 


1710 char1,10,20,wd$ 

1720 getas:ifa$="'"then1720 

1730 ifa$="j"then1660 

1740 ifa$="n'"then1300 

1750 goto1720 

1760 printcl$ 

BRZO SPRINT. Se Linsenkombinat 


ionen":print 


1780 printc4$'"Aus Objektivbrennweit =» 
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FOTo 


e und Vorsatzlinse" 


1790 printc4$"....wird das Gesamtsy 
stem errechnet." 

1800 char1,10,20,wt$ 

1810 wait198.63 

1820 printchr$(147) 

1830 print:print" Brennweite in mm" 


:print:inputf 

1840 print:print" Brechkraft in Dio 
ptr.":print:inputd 

1850 fi=(1/f)*1000:f2=f1 

1860 gb=fi+d:gf=1/gb:d2=1/d 

1870 printcl$ 

1880 print:print'" Brennweite..... Dr 
£'mm =";f2"Dioptrien' 

1890 d2=int ((d2+.0005) *1000) /1000 
1900 print:print' Brechkraft..... Sr 
d"Dioptrien =";d2'mm" 

1910 g£f=int((gf+.0005)*1000) /1000 
1920 print:print" Gesamtsystem..."; 
gb'"Dioptr.=";gf'mm' 

1930 charl1,10,20,wd$ 

1940 geta$:ifa$="'"then1940 


1950 ifa$='"j'"then1820 

1960 ifa$="n'"then220 

1970 goto1940 

1980.PrINntelS Print in... Blitzl 
ichtberechnungen......... Ink 

1990 print 

ZUOWSBEIRT AN Was soll berechne 
t werden?':print 

2010 print 

2020 print" (1) Blitzentfernung":pr 
int 


2030 printc4$'" (2) Blitzentfernung 
bei Nahaufnahmen'":print 


2040 printc4$'" (3) Blendenzahi":pri 
nt 

2050 printc4$" (4) Menue" 

2060 print 

2070 char1.13,20,bw$ 


2080 
2090 
2100 
2110 
2120 


geta$s:ifas=""then2080 
ifa$="1"then2140 
ifas='2'then2230 
ifa$="3'"then2530 
ifag='"4'"then220 

2130 g0t02080 
2140 printcl$g3$' 
s":print:inputle 
2150 print 

2160 printc4$' 

. Blende'":print:inputbl 

2170 be=le/bl 

2180 printc4$" Entfernüng Blitz > 
Motiv ="be'm' 

2190 chari1,13,20,wd$ 

2200 geta$:ifa$=""then2200 

.2210 ifa$="j'"then2140 


48 


Leitzahl d.Blitze 


_- 53—_— 
2220 ifa$='"n'"then1980 
2230 printcl$:print:printc4$' Was 
soll errechnet werden?" 
2240 print:print:print:printc4$".." 


‚s:printrn$'"E'rf$'ntfernung" 

2250 printc4$' .";:printrns'B"rf$i'1 
ende" 
2260 
2270 
2280 
2290 


char1,13,20,bw$ 

geta$:ifa$=""then2270 

ifa$="e'"then2410 

ifa$="b'"then2310 

2300 9002270 

2310 printcl$:printc4$" Entfernung" 
:print::inputbe 

2320 printc4$'" 

tle 

2330 printc4$' 

rint:inputab 

2340 bl=le/be/ (ab+1l) 

#20) 710 

2350 printc4$' Blende ="bl:print 

2360 char1,13,.20,wd$ 

2370 geta$:ifa$="'"then2370 

2380 ifa$="j"then2310 

2390 ifa$="n'"then1980 

2400 g0t02370 

2410 printci$g3$" Leitzahi A, ‚Blitze 
s":print:inputle 

2420 print 

2430 printc4$'" Blende”: 
l 

2440 printc4$'" 
int:inputab 

2450 be=le/(bl* (ab+1)) 

2460 be=int((be+0.005)*100)/100 

2470 printc4$' Entfernung Blitz > 

Motiv ="be'm" 


Leitzahl':print:inpu 
Abbildungsmassst.'":p 


:bl=eint((bl+.05 


print:inputb 


Abbi ldungsmasst. ":pr 


2480 char1,15.20,wd$ 

2490 geta$:ifa$=""then2490 

2500 ifa$="j'"then2230 

2510 ifa$="n'"then1980 

2520 g0t02490 

2530 printcl$qg3$'" Blitzentfernung": 
print: inputbe 

2540 print 

2550 printc4$'" Leitzahl":print:inpu 
tle 

2560 print 

2570 bl=le/be 

2580 printc4$" Blende =";bl 

2590 char1,13,20,wd$ 

2600 geta$:ifa$=""then2600 

2610 ifa$='"j"then2530 

2620 ifa$="n'"then1980 

2630 goto2600 

2640 rem*farbtemperatur* 

26590. Br 1iNntel$998.: I nn Farbt 
emperatur' 


EI TI) 


2660 printg3$' Berechnung der Farbt 
emperatur nach Ein- '"; 

2670 printc4$'" gabe von 2 Werten.W 
enn kein Wert vor-" 

ZRBON PFINTCAB NN. 3, handen,dann 
0 eingeben." 

2690 char1,10,20,wt$ 

2700 wait198,63 

2710 printcl$q3$" Farbtemperatur de 
r Beleuchtung.'":print:inputa$:a=val 
(a$) 

2720 ifa<Othen2710 

2730 printc4$c4$'" Farbtemperatur de 
s Filmes":print:inputb$:b=val(b$) 
2740 ifb<Othen2730 

2750 ifa+tb=0Othen2710 

2760 printc4$"....Korrektureigensch 
aft des Filters in'";:print 
c4$"...Mired" 

2770 print:inputk$:k=val(k$) 

2780 ifk< >Othen2800 

2790 ifa*b=0then2760 

2800 c=1000000 

2810 ifa< >0Othen2850 

2820 a=c*b/(c+k*b) 

2830 a=int (a+.5) 

2840 goto2910 

2850 ifb<>Othen2890 

2860 b=c*a/(c-k*a) 

2870 b=int (b+.5) 

2880 g0ot02910 

2890 k=c* (b-a) / (a*b) 

2900 k=int (k+.5) 

2910 printcl$qg3$" Ausgangs Farbtemp 
eratur:";a 

. 2920 printc4$" Filmfarbtemperatur:. 


BEN RES NUN 0 
2930 printcas. Filterwert.....!.... “ 
;k" Mired" 


2940 char1,3,15,"Filterwert mit - 
=roetl. Filter(KR)' 

2950 chari1,3,17,'"Filterwert mit + 
=blauer Filter (KB) 

2960 chari1,15,20,wd$ 

2970 geta$:ifa$=""then2970 
ifa$='j"then2710 
ifa$="n'"then220 

9002970 

printcl$c4$gb$; 

PRINTER LEN. a 


printgb$; 
printqg3$ 
DEINEN en (1) Filterda 


printqg3$ 

Prints a ua (2) Lichttab 
geta$:ifa$=""then31l00 
ifa$="1'"then3140 
ifa$="2'"then3570 

goto3100 

printc1$c4$gb$; 

BRSETLEH Rena SEELE N SENSE 


printgb$; } 

printq3$'" Sie koennen irgend e 

inen Wert eingeben" 

PRINLCAS NN N Sei es der 

Miredwert'" ‘ 

SELVNBFINECEB NE NL EL Se RR ode 

h auiie 

3220 printc4$'"..der Korrekturfaktor 
in (KB oder KR)" 

3230 chari1,10,20,wt$ 

3240 wait198,63 


3250 g0t03310 

3260 chari1,13,20,wd$ 

3270 getx$:ifx$=""then3270 

3280 ifx$="j'"then3310 

3290 ifx$="n'"then220 

3300 9003270 

3310 printcl$ 
3320 line=3440:restore:print:charl, 
10,5," Suchbegr.":print:inputk$ 
3330 l1=len(k$) 
3340 printc1l$c4$ 

3350 reada$:line=line+10 

3360 ifa$="$"thenprint:g0t03260 
3370 fori=1tolen(a$) 

3380 ifmid$(a$,i,1)=k$then3410 
3390 nexti 

3400 9003350 

3410 char1,10,5,a$:char1,10,20,wt$ 
3420 wait198,63:90t03340 

3430 data" KR 2 + 18 Mired" 
3440 data" KR 2.5 + 27 Mired" 
3450 data" KR 3 + 35 Mired" 
3460 data" KR 6 + 50 Mired" 
3470 data" KR 9 + 81 Mired" 
3480 data" KR 12 +112 Mired'" 
3490 data" KR 15 +131 Mired" 
3500. data’. KB: 2 —- 18 Mired' 
3540 data KB: 3 —- 32 Mired'" 
s3oal'datau: KB 6 — 45 Mired' 
3930 .data' KB.r9 —- 81 Mired'" 
3540 data" KB 12 -112 Mired' 
3550 data" KB 15 -131 Mired" 
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POITO 


datas 
printc1$; 
print 


RE EL ER Farbtempera 


SE te ale re verschieden 


RE RER IR NDR Lichtguell 


print" 


print 

print" Alle Angaben beziehen 
auf Tages-" 

ERTL REN lichtfıil 
print 

char1,10,22,wt$ 

wait198,63 

printcl$; 

print 

print. rKerze...s..H Ne 
print 

print" 1900Kelvin...526Mired.. 


.= 2*KB15" 


print 
print" Lampe 
print 
print" 2600Kelvin...385Mired.. 


4A0OWatt E 


.= KB15+KB9" 


print 
print". Lampe... 7oWatt....,.%: “ 
print 


print" 2800Kelvin...357Mired.. 


.= KB15+KB6" 


print 
print" Lampe 100Watt........ “ 
print 
print" 


print 
print" Projektor Lampe Hochvol 


2900Kelvin...345Mired.. 
.= KB15+KB2" 


Filt. 


‚=.KB12'" 


print 


print" 3000Kelvin...333Mired.. 


.= KB15+KB2" 


print 

print 

PPIDEN DR ES NER 
wait198,63 

printc1l$; 

print 

print" Projektor Lampe Halogen 


print 


print" 3400Kelvin...294Mired.. 


.= KB12" 


print 
print" Halogenlampe Hartgias' 
print 


print" 3200Kelvin...313Mired.. 


.= KB15'" 


print N 
print" Halogenlampe Quarzkolb 


print 
print" 3400Kelvin...294Mired.. 
print 

print" Nitraphotlampe..500W/27 


print 
print" 3200Kelvin...313Mired.. 


= KB15" 


print ; 


print" Nitraphotlampe..500W/34 


print 


print" 3400Kelvin...294Mired.. 


print" 
wait198,63 
printcl$; 
print 
print. 
print 
PrINE. 


. ernennen 


Blitziampen weiss.... 


3800Kelvin...263Mired.. 


„= KB9" 


print 
print" 
print 
print. 


MOHRLLICHL EN RER Ei 


4000Kelvin...250Mired.. 


„= KB9" 


print 
PrYinNg: 
print 
Print 
= KB3' 


Morgen/Abend......... x 


4700Kelvin...213Mired.. 


FOTO S 


print 
print" Elektronenblitz...... 
print 
print" 5500Kelvin...182Mired.. 
Filt.= 0" 
print 
print" 
print 
PRINE. 


Sonne (10-14Uhr)..... a 


5500Kelvin...182Mired.. 


wait198,63 
printcl$; 
print 
print" Blitzlampen blau..... 
print \ 
print" 5500Kelvin...182Mired.. 
AN ltr 0 Bad 
print 
print" 
print 
print: 
„= KR6' 
print 
print" Licht vom blauen Himmel 
Schatten) " 
print 
print"12000Kelvin....83Mired.. 
.=. KR12" 
print 
print" Licht vom blauen Himmel 
im Gebirge" 
4720 print 
' 4730 print" 
4740 print 
4750 print"18000Kelvin....56Mired.. 
PuNt:, 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 


a a EEE TEE, 


Fortsetzung von Seite 39 


len fragt das Programm dann nach der Anzahl der 
gewünschten Lottotips. Diese kann von eins bis 

unendlich angegeben werden, sinnvoll ist es aber, 
nicht mehr als neun Tips auf einmal anfertigen zu 


Leicht nebliges Wetter" 


8400Kelvin...119Mired.. 


timtscHatken) win. mn. Y 


wait198,63:90t0220 
rem foto 
rem 


S=e===2===<-2==22020==p2 
bytes memory 
bytes programm 
bytes variablen 
bytes strings 
bytes arrys 
bytes 


[u 
le |) - () 


TEE IT TITETTETTTee Terre en ni a A a 


LOTTOZAHLEN 


lottozahlen 
(pP) 02/86 cbm + cw team ts = 


ZZ Zzz_zzzomemsoemmemm oc mem mcmmeme= 


(c) 06/85 


10 rem 
20 rem 
30 rem 
40 rem 
50 rem 
60 rem by jerzy komorowski 

70 rem version 2.0 22z/ascii 
80 rem vc-20 + 1530/1541 

90 rem =====-=-=--.=-222 20-00 0n nennen 
c4$=chr$(017) :c1$=chr$ (147) 
rn$=chr$(018) :rf$=chr$ (146) 
wh$=chr$ (005) :c3$=chr$ (029) 
c2$=chr$ (145) :c1$=chr$ (157) 
1$="*rwa#]lotto zahlen**rux 
goto190 
poke198,0:wait198,1:getqg$:retur 


x=6:y=49:5=4:return 
x=7:y=38:5=3:return 
printci$c4$1$spc (49) "1.6 aus 49 
":printspc(27)"2.7 aus 38" 

200 gosub160:x=val(qg$) :ifx<lorx>2th 
en200 

210 onxgosub170.180 

220 printc1l$1$c4$"wieviel spiele":i 
nput n 

230 printc1$1$:fori=1ton 
fork=0tox-1 

q=int(rnd(1)*y+1) 
forl=Otok:ifa(1)=qgthen250 
nextl:a(k)=q 
x$=right$(str$(a(k)) ‚2) :printta 
b(k*s)x$; | 

290 nextk:print:ifs=3thenprint 

300 next i 

310 printc4$"f1=nochmal....f3=ende" 
320 gosubl60:ifasc(q$)<>133andasc(q 
$)< >134then320 

330 ifasc(g$) =133then190 

end 
rem lottozahlen ===========-=-=20 
28079 bytes memory. 
01156 bytes programm 
00063 bytes variables 
00000 bytes arrays 
00008 bytes strings 
26852 bytes free 


lassen, da auf dem Bildschirm nicht mehr Anzeigen 
Platz haben, ohne daß die nachfolgenden Kombi- 
natıonen die oberen Zeilen „Wwegscrollen‘. Mit der 
Funktionstaste >FI< kann von neuem begonnen 
werden, mit >F2< wird das Programm beendet. 
Lottozahlen eignet sich vorzüglich zum Testen von 
eng Lottosystemen sowie zu deren An- 
ertigung. Lottozahlen läuft (nach Anpassung der 
Bildschirmanzeige) auch auf den anderen Commo- 
dore-Rechnern. 
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TIPS & TRICKS 


ZEIT 
UND 


GELD 
SPAREN 


DURCH 
STENO- 
BASIC! 


Sicher wissen Sie, daß man die meisten Basicbefehle 
abkürzen kann (Handbuch $. 130). Dennoch wenden 
viele diese enorme Erleichterung und Zeitersparnis 
nicht an, weil sie sich nicht bewußt sind, um wieviel 
schneller und sicherer man programmiert. 


Der Stenolister zeigt Ih- 
nen, wieviel weniger Sie 
eingeben müssen, wenn 
Sie die Abkürzungen ver- 
wenden. Besonders inter- 
essant ist das Programm 
für Programmzeilen mit 
mehr als 80 Zeichen. Will 
man diese in einer Zeit- 
schrift abdrucken, so 
empfiehlt es sich, die 
Kurzschreibweise anzu- 
geben, damit die weniger 
kundigen Leser die Zeilen 
auch richtig eingeben kön- 
nen. Gleichzeitig kann 
man daraus lernen, wie 
der Interpreter ins RAM 
(veränderbarer Speicher) 
kopiert und verändert 
werden kann. 

Zeile 22 schreibt ein klei- 
nes Maschinenprogramm 
in den Kassettenpuffer, 
mit dem man beliebige 
Speicherbereiche ver- 
schieben kann (siehe Kar- 
teikarten: Blockverschie- 
beroutine). 

Die Zeilen 32 — 40 kopie- 
ren den Interpreter ins 
RAM. 

Die Datazeilen am Ende 
beinhalten die abgekürz- 
.ten Basicbefehle. Die 


52 


Listroutine sucht in der 
Liste ab 41117 nach Zei- 
chen mit gesetztem 7. 

Bit (geshiftete Zeichen) 
und zählt sie bis zu der ge- 
suchten Nummer durch. 
Dann wird das Befehls- 
wort (Token) ausgedruckt, 
wobei das 7. Bit des letz- 
ten Zeichens gelöscht 
wird. Mit wenigen Ände- 
rungen wird im Programm 
erreicht, daß das 7. Bit 
vor dem Ausdrucken 
nicht gelöscht wird, so 
daß Abkürzungen wie 
‘pO’ für ‘poke’ möglich 
sind. Token, die keine 
Abkürzungen haben, wer- 
den klein geschrieben 

und das geshiftete Ende- 
zeichen wird durch den 
Code 143 dargestellt, 

der beim Ausdrucken 
keine Wirkung hat. 
Weitere Information be- 
findet sich in den REM- 
Zeilen. Zu den Token 
siehe auch CBM-REVUE 
5/85 BASICLIST. Eine 
komplette Liste der Basic- 
befehle zur Kontrolle 

des Programms kann man 
sich mit den Karteikarten 
(Tokenliste) erstellen.(rsf) 


10 rem == stenoglister FrrFrsrz>7332u77 
12 rem (p) cbm revue team u 
1 4). rem a re N a er a a rn a ne BE En RE ER SS en a a a a a a 
16 rem (ce) 01/86 r. schmidefabian 2 
18 rem car64 = 
au rem a a a nt ee En EEE a BE a a 


22 fori=BPBtoßälıreadarpokei arnexti 


24 data 173,93,5,174,94,3,153,95, 154, 
76 

26 data 175,95,3,174,96,3,135,90, 154, 
71 

28 data 173,97,3,174,98,3,1533,88, 154, 
39 

50 data 76,191, 165 

a ori =861t0866: pokei,Ö:mexti 

34 poke8642, 160: pokeB864, 192: 

pokeBäd, 192 

4) sysB2ß:rem interpreter ins ram 


kopiert 

70 1Iv=41117:rem anfang der 
befehlsworte 

BO poke42734,14F:ırem kein leerzeichen 
nach zeilennummer 
90 poke42738,255:rem letztes zeichen 
bleibt geschiftet - 
printss 


100 for i=!l to 4: read s#:ı 
110 for k=1 to len (s%) 
120 as=mid$(s$,k,1L):printas; 


azasc (a$)ıif ase# then a=143 
lv=l\v+i:ıpokelv,ä 
nextksprintinexti 

200 poke 1,54:rem auf ram umschalten 
AlLO rem 

PEETTTTERTTLTSLTET TI TER TE FT TI TEE De 
220 rem achtungs befehle nun 
abgekuerzt. 

230 rem letztes zeichen nicht 
schitften! i 

240 rem beispiels 
E50 rem 

KK KK KK KK Kak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak 
260 rem normal mit run/stop-restore 
270 rem oder mit po 1,55 

280 rem 

X KK K ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak a ak ak ak ak ak ak ak ak akak ak ak 


130 
140 
150 


list = li 


1000 dataeNfOnEdAiNinput#diIrElEgüOr 
Ui ft#reSgoßreTrem#sTon#wA 


1010 data 10sAvEdEpüpk”#cOl IcLemd#sYo 
FelÜgEnew#t Ato#fNsFtH 


1020 data nOstE-HH-4Pk# /#ßHaNoR>HehH 
syn#inTaRusfRpaos#sürN 


1030 datalogtexp#cost#s Itan#taTpElentst 
RvAascHlefr iImigo# 


a —————— nn  —————————————————eneenneeeeee 
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TIPS & TRICKS 


TIPS ZUM KAUF 

EINES COMPUTERS 
a ET En 
Der Kauf eines Computers 
sollte gut überlegt sein. 
Man muß wissen, wieviel 
Geld man ausgeben kann 


.oder will. Der Preis spielt 


also eine wichtige Rolle. 
Das heißt, daß man die 
verschiedenen Angebote 
vergleichen muß. Aber 
Achtung: Ein billiges 
Grundgerät ist nicht unbe- 
dingt auch ein billiges Sy- 
stem. Vergleichen Sie vor 
dem Kauf eines Grundge- 
rätes auch die Preise für 
Peripheriegeräte, wie Mo- 
nitor, Diskettenlaufwer- 
ke oder Drucker. 

Auch muß man wissen, 
ob man sich dauerhaft für 
einen Computer interes- 
siert, denn viele Heim- 
computer stehen nach 
wenigen Wochen unge- 
nutzt herum. Wenn man 
glaubt, sich auch länger 
mit einem Computer be- 
schäftigen zu können, 
sollte man lieber gleich 
ein paar Mark mehr aus- 
geben und einen teureren 
Computer kaufen. Die 
sind dann meist vielseiti- 
ger und komfortabler zu 
bedienen. Ist dies nicht 
der Fall, sollte man mit 
einem kleineren Modell 
anfangen. Es gibt bereits 
Geräte um 150 Mark 
(VC 20), bei denen man 
ausprobieren kann, ob 
man Interesse an solch 
einem Hobby hat. Später 
kann man immer noch 
auf ein größeres System 
umsteigen. 

Sie sollten sich auch vor 
dem Kauf eines Compu- 
ters klarmachen, wofür 
Sie ihn vor allem einset- 
zen wollen. Vor allem 
Kinder werden in der er- 
sten Zeit mit dem Com- 
puter viel spielen wollen. 
Dazu werden dann Joy- 
sticks und eine Disket- 
ten- oder Kassettensta- 
tion als Peripherie ge- 
braucht. Auch sollte ein 
Computer dann ein gro- 
ßes Angebot an Spiel- 
programmen aufweisen. 
Tonerzeugung und 
(Farb-)Grafikfähigkeit 
sind dabei auch wichtig. 
Andere werden mit dem 


—— ss zz 


Computer basteln wol- 
len. Besonders diejenigen, 


“ die sich für Elektronik in- 


teressieren, werden mii 
dem Gerät versuchen Re- 
lais zu steuern oder mit 
computererzeugter Spra- 
che oder ähnlichem zu 
experimentieren. In die- 
sem Fall muß ein Com- 


* puter erweiterungsfähig 


sein. 
Viele, vor allem Schüler, 
werden mit einem Com- 
puter lernen wollen. Ge- 
hören Sie zu dieser Grup- 
pe, dann kaufen Sie einen 
Rechner, für den man 
Lernprogramme in Spra- 
chen, Physik, Mathema- 
tik-u.a.m. erwerben kann. 
Es empfiehlt sich auch, 
vor allem bei Textverarbei- 
tungsprogrammen, eine 
deutsche Tastatur mit 
deutschen Umlauten (er- 
kennbar an “QWERTZ“ 
in der ersten Buchstaben- 
reihe) zu verwenden. Eine 
vernünftige Textverarbei- 
tung ist sonst nicht mög- 
lich. Auch sollte der Com- 
puter in jedem Fall über 
mechanische Tasten und 
nicht über eine Berüh- 
rungs- oder Gummitasta- 
tur zu bedienen sein. 

Wie groß muß der Spei- 
cherplatz für Ihren Com- 
puter sein? Das hängt da- 
von ab, was Sie mit ihm 
machen wollen. 


. 16KByte sollte der Rech- 


ner mindestens haben. 
Allerdings reicht diese 
Speichergröße nur zum 
Spielen mit Programm- 
odulen; Programmieren 
können Sie damit nur we- 
nig. Für eine ernsthafte 
Anwendung brauchen Sie 
mindestens 48KByte. 
Noch besser ist 64K Byte; 
aber diese Geräte sind 
auch gleich teurer. 
Soll man eine Kassetten- 
oder eine Diskettensta- 
tion verwenden? Am An- 
fang ist eine Kassettensta- 
tion noch akzeptabel. Sie 
ist billig, aber auch um- 
ständlich und langsam. 
Wenn man es sich leisten 
kann, sollte man später 
auf ein Diskettenlauf- 
werk umsteigen. 
Auch der Kauf eines 
Druckers ist wichtig, wenn 
Sie am Computer ernsthaft 
arbeiten wollen. 


Dir-sorter 


—1-— 

19 rem Dirsorter 3============2=2==64 
28 rem {P) 89/35 CBM REVUE TEAM = 
239 rem  SS2S227 zzszzzzzmmaczsmmesemzmoemmemamn 
a9 vem :C: 29/35 by 7 
54 ren !ncmas Strauss = 
E23 vem ” 
IS rem = 
3S9 rem C-64 + 1531/1541 = 
99 rem = 3227555 SZ22 2 m zzezmzmssemmmms> 
18% wh$S=chr${905) 

iid rtis=schr$t013) 

ITS rnt=chr$(918):!he$s=chr$ (819) 

172 grs=chr$(939) !bl$=chr$(931) 

139 #18=chr$(133):13$=chrs(134) 

159 #68=chr$(139) :f8$=chr$ (149) 

1#& r#f&sechrs(146):!c1l$=chr$(147) 

179 „e$=chr&(158) 


ıce@ pl$=chr6 (946) 

poke 53289,8:poke 53281,9:print 
rs 

279 print c1$ 

21@ for i=1 to 6:print :next 

220 printtab(19) 5 "directory-sorter" 

230 print :print :print :print :pri 

"2 Sprint 

240 print tab(3) pi$pi$pi$pus"(c) 19 

24 "grs"by "ye$"thomas strauss"gr$ 


259 for i=1 to ödiprint inext 

259 print kabt19W);5 "press ’fl’ to st 
at vn 

276 get x$iif x$X>fl$ then 279 


are 
aa 9] 
379 
318 


= 


ol:$=rn$+" ok"+r#$ 

dim di$(iA4):print chr$(147) 
an=antligosub 599 

it df$=enf$ then an=an-1:90t0338 
di$ltan)=df$!df$="":goto 308 


239 for i=1 to 8!print next 
349 print !print "press ’#fi’ to co 
ntinue or ’f8’ to stop" 


359 get “Stift xSC)rl$ and xBe)t8$ t 
Han 35% 

3ER if x$=f8$ then end 

278 print chr$(147) ' 

Sog print "sorting directory.."; 
279 for i=1 to an-i 

ea jeitl 

a:2@ for k=i to an 

a2 if mid$ldis(k),4,16) >mids(distj 
);4,16) then 448 

42% j=k 

A493 next &k 

459 KEedistj)idistj)=disli)idisti)- 
h$s:print 9,.%5 

ZEN next i 

aTeE i=an 

429 for an=i to i:df$=dis(an):gosub 
329: next. an 

92 for z=d to 209: next z 
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Dirsorter- 


588 print chr$(147) 

518 open 1,8,15 E 

528 print# 1,"m-r"chr$(144)chr&(?)c 
hr&t16) 

53@ input# 1,na$ 

5s4@ close 1 


559 print :print :print print :pri 

nt :print ‘print :print :print :pri 

Kt’. Print 

548 print "dir-sort von "5na$; "---> 
’ 

578 gosub 1838 

589 end 


S59@ open 15,8,15,"i":open 8,8,8,"#" 
699 nf$="":for i=si to 3ß:nf$enfstch 
r$(@)inext i 

sifi x=inttlan-1)/8) 

628 print# 15,"ul"58590518;@ 

638 for z=i1 to xti 

642 print# 15,"b-p"5959 

659 get #3,t$:t=asctt$+tchr$(9)) 
&62 get #8,5$:5=asc (s$tchr$(9)) 
678 if 't=9@ then df$=nf$:goto 759 
688 print# 15, "ul"58;@;,t;s 

698 next z 

728 po=an-(x%8):po=(po-1)%32+2 
718 print# 15,"b-p";8;po 

728 for z=i1 to 30:get #8, z$ 

738 if z$="" then z$=chr$1%) 

749 dfs=dft+tzt:inext zZ 

?59 close 8:close 15 

?&8 print chr$(1497) 

779 print "reading directory..." 
?83 for i=1 to 19:print :next 
798 print "reading sector:";5s35" 
e: "5san;"-->"5 

seed gosub 1934 

8189 return 

832€ open 15,8,15,"i":open 8,8,8,"#" 
838 »=int(t(an-1)/8) 

848 print# 15, "u1l"58595 1859 

:858 for z=1 to xt+i 

858 print# 15,"b-p"585% 

E79 get #3,t$:t=asc(tt$tchr$(9)) 

388 get #8,5$:s=asc {s$+tchr$(9)) 

898 if t=d then 969% 

9828 print# 15, "ul"58;@;t;s 

919 next z 

924 po=an-(x%8):po=(po-1)%32+2 

939 print# 15,"b-p"58;po 

948 print# 8,df$; 

952 print# 15, "u2"5859;t;5 

9£8 close 8iclose 15 

978 print chr$t147) 

9328 print "writing directory..." 
998 for i=1 to 1@:print :next 

19822 print "writing sector:";5s;" fi 
le:"san;"-->"5 
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il 


De RENNER SR SNERNEERLETESNBERERFRHILEERRRDE RER NNELNEERURRG SER ANIRRLLERRUENDE ARHNOKHORE AARLRSEREENRR NE ENGER GENRE erg PIr menge up a1 ee GUTER UBER TTRERTTR 


‚1138 


1818 

1828 

1939 

1948 

1859 

1088 

1978 

13% 

:jcyd 
1950 for i=il to 4:print 
1199 print "press ’fi’ 

or ’f8’ to end !" 

111@ get xstif x$Cyti1$ and x$I>f8$ 
then 111€ 

112@ it x$=f8$ then end 

return 

rem dirsorter 3 
rem 38911 bytes 
rem 02597 bytes 
rem 
rem 
rem 
rem 
rem 


gosub 1938 

return 

open 1,8,15 

input# 1,3,b$,c,d 

close I 

if a=8 then print ok$:return 
print :print :print 

print uhs"disk fehler: "gr$jajb 


‚next 
to continue 


memory == 
program wu 
variables == 


1148 
1159 
11688 
1179 
1188 
119 
1298 
1219 


? 5 


arrays 
strings = 
free = 


m a mr iu des am am mem mu m mu mu arm me mm mm mn mm Mm Ma Ma ai Mara Mae Ka 
zz 227 57552552 557250 .. 


nun lo 
nenn BD 


DIRSORTER 


Das Programm liest das Directory einer Diskette ein, 
sortiert es alphabetisch und schreibt das sortierte 
Directory wieder auf die Diskette zurück: 

Dabei werden zwar zerstörte Files miteingelesen, 
jedoch nicht wieder mit zurückgeschrieben. Jede Ope- 


ration des Rechners wird mit einer Fehlerermittlung 


überwacht. 


NEU AUF 
DEM 
MARKT 


Mit The Captive hat 
Mastertronic einen neuen 
Hit von Taschengeldsoft- 
ware auf den Markt ge- 
bracht. Mit rollender 
Grafik und per Joystick 
oder Tastatur kann der 
Spieler eine Welt der 
Science fictiongeschich- 
ten miterleben. Im Tal 
des Todes bewegt er sich 
in Wäldern, Städten und 
über Seen immer auf der 
Hut vor den Schicksals- 


: boten. Am Ende erreicht 


er eine Burg, in der ver- 
meintlich der Schlüssel 
zur Freiheit liegt. Viele 
scheinbar sinnlose Gegen- 


Thomas Strauss 


stände unterwegs bekom- 
men irgendwann alle ih- 
ren Sinn und können alle 
einen Schritt in die Zu- 
kunft bedeuten. 

Mit einer außergewöhn- 
lich guten und sehr be- 
weglichen Grafik sorgt 
das Spiel The Captive für 
ständig wechselnde Situa- 
tionen und viel Spaß über 
lange Zeit. The Captive 


.kostet wie alle anderen 


Matertronic-Spiele zwi- 
schen 10,— und 12,— DM 
und ist für jeden Geld- 
beutel erschwinglich. 
Verfügbar ist The Cap- 
tive für Commodore 64 
mit einem fast loader, 
der kurze Ladezeiten ga- 
rantiert. Neben The Cap- 
tive ist auch das Spiel 
Finders,Keepers und 
Spooks in gleicher Preis-, 
klasse erhältlich. 


TIPS & TRICKS 


PREISWERTER 


EINSTIEG 
IN DIECOM: 
PUTERWELT 


Mit einem ungewöhnlich preiswerten Lernsystem 
für die relativ leichte Programmiersprache BASIC 
(Beginners All Purpose Symbolic Instruction Code), 
fördert Commodore zur Zeit den „Einstieg’’ in 
den Computer-Alltag. Wie groß die Aufgeschlossenheit 
in der Öffentlichkeit ist, zeigte sich in der Verkaufs- 
bilanz nach nur einem Monat: Über 50 000mal wurde 
dieses Paket, das ein komplettes Mikrocomputer- 
System mit Lern-Programm und Datasette für die 
Datenträger enthält, verlangt. 


Commodore-Geschäftsführer Winfried Hoffmann (links) 
überreicht fünf Basic-Lernsysteme an den Leiter der 
Volkshochschule Oberursel, Dr. Otto Rüb. Enthalten 

sind ein — auch anderweitig verwendbarer — Farb-Home- 
computer Commodore C 116, ein Datenrekorder 
„Datasette 1530’, das BAS IC-Lernprogramm auf Kassette 


und ein Handbuch. 


Keineswegs nur Jugend- 
liche, auch viele inter- 
essierte Erwachsene 
nutzen die Gelegenheit, 
für weniger als 200 Mark 
mit der Computertech- 
nologie vertraut zu wer- 
den. Auch ohne Vor- 
kenntnisse läßt sich der 
Umgang mit dem Klein- 
rechner und der Pro- 
grammiersprache BASIC 
in wenigen Tagen oder 
Wochen erlernen. Der 
Mikrocomputer Commo- 
dore C 116, der zum 


tt __ po 


Lernsystem gehört, läßt 
sich selbstverständlich 
auch für jeden anderen 
Zweck verwenden. Ne- 
ben selbst zu entwickeln- 
den BASIC-Programmen 
bietet der Markt eine 
Vielzahl an Fertig-Pro- 
grammen, die entweder 
abgetippt werden oder 
mittels Kassette in den 
Computer „geladen“ 
werden können. 

Das attraktive Commo- 
dore-Lernsystem benötigt 
lediglich ein handelsübli- 


ches Fernsehgerät als 


" Monitor und ist sofort 


einsetzbar: Es besteht aus 


dem Homecomputer C 116, 


einer „Datasette 1530“, 
einer Programmkassette 
sowie einem leichtver- 
ständlichen Anleitungs- 
uch. 
Die ersten Gehversuche 
mit einem Mikrocompu- 
ter machen besonderen 
Spaß, weil der Commo- 
dore C 116 ein farbtüch- 
tiger Homecomputer ist, 
der nach dem Anschluß 


eines beliebigen Fern- 
sehers zum Beispiel mun- 
tere Spiele mit eindrucks- 
vollen Farbgrafiken auf 
den Bildschirm bringt. 
Der C 116 kann insge- 
samt 120 Farben (15 
Farben in je acht Hellig- 
keitsstufen) darstellen. 
Außerdem kann man mit 
ihm auch Musik ‚„‚zau- 
bern‘: Zwei Tongenera- 
toren sind eingebaut, mit 


“ deren Hilfe Kompositio- 


nen programmiert wer- 
den können. 


MEHR PLATZ 
IM SPEICHER 


Hat man ein Maschinenprogramm aus einer Zeit- 
schrift abgetippt, dann stehen dort eine Unmenge von 
DATA-Zeilen mit Dezimal- oder Hexzahlen. Will man 

es starten, so müssen diese immer zuerst gelesen, bei 

Hexzahlen noch umgerechnet und dann in den 

Speicher eingePOKEt werden. Das kostet unnötige 
Zeit und auch Speicherplatz. 


Hier ist eine Methode, mit 
der man nur ungefähr 25% 
des Speicherplatzes und 

10 bis 20% der Zeit benö- 
tigt. Außerdem wird ge- 
zeigt, wie man einen Copy- 
right-Hinweis in einer Zei- 
le unterbringen kann. 


0 rem#+***copyright + 
copyschleife * xx x 


l printSqgq,(C)R. 
Schmid-Fabian,,,Postfach 
105027,,,6900 Heidelberg 
2 sm=xxxxx:rem start 
maschinenprogramm 

3 al=xxxxx: rem anfang 
masch.pr. im lader 

4 el=xxxxx:rem ende 
masch.prog. im lader 

5 i=sm:for k=al to el: 
poke i, peek (k): 
j=itl:next:new 


* ++ Vorgehensweise *+* ** 


1) Maschinenprogramm 
laden, NEW eintippen 


2) Zeilen 1 bis 5 eintippen 
Eigentlich reicht Zeile 5, 
dann müssen sm,al,el 
eingesetzt werden. 

Statt NEW kann auch 
LOADname stehen, um 
ein Programm nachzu- 
laden. 


3) al=peek(45)+peek(46) 
*256+9 el=alt+Länge des 
Maschinenprogramms 
(sm und Länge des Ma- 
schinenprogramms ent- 
nimmt man dem alten 
Basiclader im Listing) 


4) im Direktmodus 
eingeben: 
(al,el und sm als Zahlen 
einsetzen) 
ha=int((elt9)/256):la= 
(el+9)—ha*256:poke 
45 la:poke46,ha 
i=sm:for k=al to el: 
poke k, peek(i):i=itl 
next 


5) abspeichern 


Das Ganze kann natürlich 
auch am Ende eines Pro- 
grammes stehen, wo es 
dann mit GOSUB ange- 
sprungen wird. 

Mit dieser Methode kann 
man auch HIRES-Gra- 
fiken abspeichern. Bei so 
großen Speicherberei- 
chen empfiehlt es sich je- 
doch, statt der Basic- 
schleife die in den Kartei- 
karten besprochene 


* Blockverschieberoutine 


zu verwenden. ; 
(rsf) 
55 


TIPS & TRICKS 
SPRITES i0 rem spritegraph ======m=m=mzmesmmm 
i 12 rem {p) 02/85 commodore welt = 


14 ram u mn m m me I NEE IE TUE EI 


BESCHRIFTEN :': ©.=:: 
18 rudolf schmid-fabian = 


ram 
Teil p N ; ?O rem version 2.0 40z/ascii 
eile des Programms werden in den Karteikarten 22 rem 6-64 + 15%0/1521 es 
veröffentlicht. Sie sind so auch leicht.in eigene 


Programme einzubauen. Spritegraph soll dem An- 24 ED Re ee 
fänger zeigen, wie man mit HIRES, mit SPRITES 35 col$= chr&(147) :printci$ 

und mit den FUNKTIONSTASTEN umgeht. 30 poke5S3280,45:rem %%X rahmen blau %* 
Bei den Sprites zeigt es vor allem, wie man mehr '40 print"(c) rudolf schmid-fabian" 
als 4 Sprites auf den Schirm bringt, wasin den 45 rint" post fach I0O50F7 " 

meisten Artikeln über Sprites verschwiegen wird nr neh ii ERLSEEHRRN RR 

(vom Handbuch ganz zu schweigen). Das Pro- oO pri nt 6700 heidel ber g 

blem ist hierbei, wo tut man sie hin??? Saar km PROBIER IK" 5 
Hier ist der Speicherbereich vor dem Programm printsprint 

ausgewählt (hinter dem Programm geht es auch, &0 print" fi=oben f?P=pos. anzeigen 
man muß dann das Basicende hochsetzen, damit u 


sie von den Variablen nicht überschrieben wer- 


den). Vor dem Starten des Programms muß der 65 print" f3=unten f4=daten zum fa 


Basicanfang hochgesetzt werden (siehe Anmer- denkreuz" 

kung ab Zeile 625), sonst werden nur 4 Sprites 70 print" #5=erechts föo=spritenr.+ri" 
aktiv (Zeile 475). BSR ROER 75 print" f7=links fösspritenr.-i" 
Das Programm zeichnet eine Sinuskurve, dann er- 80 printiprint" RER NAR 


scheint ein Fadenkreuz, das man mit den Funk- 


tionstasten bewegen kann. Hat man einen Punkt 85 printsprintsprint tabti1)"c= dru 


der Kurve ausgewählt, drückt man F2 und die ecken" 

x- und y-Koordinaten werden in einem Sprite an- 90 sys 58592:rem warten auf c=etaste 
gezeigt, welcher mit F4 an diesen Punkt gesetzt 95 rem KRRRRRRODKK bitmap schuetzen 
werden kann. 100 poke31,255:poke52,31:poke55, 255 


Das weitere erklärt das Programm. :pokas6,31 


105 def fn yos)=Horsinda/Or+10o 
110 ren RRERBRRRRORDPEKIKKK hires ein 


115 poke53272, peek (33272)0rB 
NICHT 120 pokeS:265, peek (HIR&S) or 

125 rem KERRODRICKRKK Farbe waehlen 
130 rem zf=zeichen- hf=hinter-farbe 


VERGESSEN: |: 
5 m 140 printcel$: Fori=l024 to 2023:pok 


e i,fınext i 


CW- SPECIAL 145 rem KKKKKKKKKKK bitmap Ineschen 
150 b=8192: fori =0t07979:poke b+i,05 
nekt 1. 

b 26 | 155 rem KKKARKKKRERKKRK Kurve zeichnen 
3 3! 180 for x=0to3l9:y=fn yvordıgosubi7ö 
165 nextxıgotolFü \ 
i70 rem RPRIRDRIIERKKEKRK punkt setzen 


Jetzt schon 175 by=(x and 504) +40% (yand248) + (ya 
nd?) s 


180 bi=7-tkand? 
185 pokeb+by,peek (b+by)or (#”"bi)ıret 


bestellen. +90 ve55248:rem BRRROREEK start vice 


BZ 05 


195 gosub 440: rem spritedaten ein 


Co 200 rem RR sorite O ein 
upon 205 pokev+äil,i i 


210 rem Xk% sprite OÖ auf x„y setzen 


® "215 x=i60:y=1l20r pokev,X:poke vrl,y 
eE £» 220 poke 650,128: rem repeat tasten 


Er 


225 nel 
ZEO rem XKYKKK funtıonstasten lesen 
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rc 
Pe Den 


255 get asıif ag="" then 


S40 if a$="e" then Sü:rem ende 
245 a=zasc (a$)ıifaXil38orarld4üthen?35 


Zu0 on 
10,269,.395, 410 
zs3 rem KRERORRRREEKK sprite O rauf 


Pen EUR 

260 poke vrl,peek (v+i)-lıgoto 235 
263 rem KKKKKKKKKRKK sprite O runter 
270 poke v+rl,peek(v+rl}+ligoto 735 


275 rem BRRRREOKKKK sprite Ö rechts 
280 if peek (v}=255 then poke v,Ü:po 
ke v+i6, (peek(v+lö)ori)sgoto235 

285 poke v,peek(v)+l:ıgoto 255 

290 rem KERRROCKKKKKK sprite OÖ links 
295 if peek(v)=0 then poke v,255:po 
kevriö,peek (v+i6)} and254: got o?35 

00 poke v„peek(wW)-irgoto 235 

205 rem XX#XK kreuz-posit. anzeigen 
310 poke v+2l,peek (v+2i1)orZ2"n:poke 

vr2Xn,„24 :poke vr2kn+i, 50 

>15 pokev+lö,psek (v+i1ö)and not Tn 

E20 xepeek (v)+255% (neek (v+i6)and 1) 
20 vepeek (vrl)-4h 

>25 for k=2 to OÖ step -1 


330 »teint (x /1lOrk)anexmktklü”k 
as yfzint(y/10rk)asyey-yfKk1lO”k 
>40 for i=0 to 7Tru=64kad(n) 

>45 poke urPkit(2-k) „dis fKB+i) 


250 poke ur2d4riKit(2ek) ,dtyfkB+i) 


Ss. next irnext kıgoto 2535 

260 ram KXKXXKK spr.n zum Fadenkreuz 
>63 K=Deek (vI)+2+255% (peek{v+1l6)and 
1) 


sp=peek (vriö)or2”n 
»75 1#»:>255thenpokev+16,sp:ıpokev+2% 
. MH ke2ö:pokev+ään+l,peek (v+l)-1l2:go 
tan? 

80 ifxt=255thenpokev+ld,peek (v+16) 
andinot Z”n) 

35 ifxt=255then pokev+2än,xıpokev+ 
=Xntl,peek(v+Hl)-12 

„90 rem PRRRKEREK spritenr, 


arhnenen 
„95 i1# nimz. then n=n-+1 


a0 gatn 235 

O5 rem KKREKKRK sporitenr. erniedr. 
410 it n>i then nen-i1 

415 gato 235 


420 poke v,iöüß:poke v+1,120: 
rem KRKRRKKEKKR n,y von sprite 1 


4259 poke v+2l,i:rem %% sprite I ein 


430 rem XKXkX sprite daten einlesen 
435 rem BRDRREOOENKKK spriteadressen 
440 poke ZO46,ilerem sprite OÖ in ii 
Ko4 
445 poke 2041,1F:ad(ll)=iderem sprit 
e 1 
450 poke 2042, i4rad(2)=ldırem sporit 
e = 


a-132 goto 264,270,280,295,3 
b - b ” 


| | TIPS & TRICKS | | 


455 poke 2043,15: ad(F)=15:rem sprit 


e3 

440 rem fuer sprite 4-7 basicanfang 
465 rem hochsetzen (vor dem laden) 
470 rem poke 44, lÜ:poke25&0,0:new X 
475 ifpeek (4F) +256X%peek (44) 64%37th 


enmz=3:40t0515 
450 poke 2044,33: ad(4)=FE:rem spr.4 
="T 


4ırem spr.5 


425 poke 2045,34: ad(5)=5 
490 poke 2046,35: ad(6)=35:rem spr.6 
495 poke 2047,36: ad(7)=Fbrrem spr.7 


S00 rem X%X spritespeicher loeschen 
S05 mz=7:ırem XX maximale spritezahl 
S10 fori=33%64tL037%64:pokei „Örnexti 


>15 for i=704 to 767:pokei ,Örnexti 
320 for i=BF2 to 10273: pokei „Örnexti 
JE rem XXkkkk spritefarbe heilblau 
=0 for i=39to46:pokev+i ,l4:ınexti 
3:5 rem XXX daten Fadenkreuz BAKKKK 
40 for i=0 to 7:read dıpoke 704+iX 


S.dimext i 


545 data 18,16,16,238,16,16,. 16,0 
SS0 rem daten fuer zahlen BRRRKKHKK 
ss dim d(80) 

S60 fori=o to79:read dıdli)=dınexti 
s65 data6s0,102,110,118,102,102,60,0 


570 data24,24,56,24,24,24,126,0 


575 datas0, 102,6,12,48,96,126,0 
580 data60,102,6,28,6,102,60,0 
5985 datas, 14,30, 102, 127,6,6,0 


590 datal26,96,124,6,6,102,60,0 


375 datas0,102,96,124,102,102,60,0 
600 datal26,102,12,24,24,24,24,0 
05 datas0, 102, 120,60,102,102, 60,0 
Hl datas0, 102,102,62,6,102,60,0 
sl return 

520 poke53272, 21:pokeS3265,27:ıend: 

rem hires aus 

625 rem spritegraph ========eummem4d 
30 rem 038911 bytes memory me 
35 rem Ö0OÖO0OG bytes program zum 
640 rem GO0OOO bytes variables === 
645 rem GÜO00O bytes arrays ze 
50 rem ÖOO0OO bytes strings mm 
ss rem ÜlOO00 bytes fres (0) z== 


SED ram 


Anmerkungen: 

Will man mehr als vier Sporites 
verwenden, 50 muss man den 
Basicanfang hochsetzen mit: 
Foke 44,10: Foke 7560, (0: New 


(tAnmerkung: A=mae U=be {=ÄAE >=Ue 


"=55 degea Ö=la 


* 


Programms verhindern können. 


Wie meist ist der Trick ganz einfach. 
In Maschinensprache gibt es einen 
EOR-Befehl (Exclusiv Or). Dies be- 
deutet “Exclusives Oder‘. Verknüpft 
man zwei Zahlen mit EOR, so wer- 
den alle Bits, die in nur einer der 
Zahlen 1 sind im Ergebnis zu |. 
Hier ein Beispiel: 

Der Computer verarbeitet nur 8-Bit- 
Zahlen. Zahlen größer als 256 wer- 
den durch mehrere 8-Bit-Zahlen dar- 
gestellt. Hier beschränken wir uns 
nur auf kleinere Zahlen. 


Dezimal 21 
Binär 00010101 (274+272+270) 
EOR 


25 00011001 (274+273+270) 

12 00001100 (273+272) 

Wie man aus dem Beispiel sieht, gilt: 
I EOR 1=0 

1 EOR 0=1 

0EOR I=1 

oEOR 0=0 


Das Tolle an EOR ist nun, daß es 
auch wieder zurückgeht: 


Eon 00001100 (273+272) 
25 00011001 (274+273+270) 
21 00010101 (274+272+270) 


Hat es schon gezündet? 

Dies gibt uns eine fantastische Mög- 
lichkeit, ein Basicprogramm (oder 
was man will) zu verschlüsseln. 

. Zum Verschlüsseln wird der ganze 
Speicherinhalt mit EOR umgedreht 
und mit einer zweiten EOR-Ver- 
knüpfung geht das Ganze wieder zu- 


rück. Zurück geht es natürlich nur Fra A 
mit der gleichen Codezahl, so daß 40-120 
.jemand, der den Code nicht kennt, eintippen! 
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SO VERHINDERN 
SIE, DASS ANDERE 


IN IHREN DATEN 
RUMSCHNUFFELN 


; Wie Sie in unserer Serie über den Listschutz nachlesen können, 
gibt es viele Möglichkeiten, sein Programm vor unbefugten Augen zu 
schützen. Heute wollen wir Ihnen eine Methode vorstellen, wie Sie nicht 
nur jedes Listen, sondern auch jedes Abändern oder Starten eines 


schon ein Entschlüsselungskünstler 
sein muß. 

Das Commodore-Basic V2.0 kennt 
nun EOR nicht, aber es gibt die 
Möglichkeit, es mit AND und OR 
nachzubilden: 

aEORb=(aorb) and not (a and b)\ 
Der Programmcodierer macht also 
nichts anderes, als ein 4stelliges 
Codewort in Zahlen umzuwandeln 
und den Programmspeicher Byte 
für Byte mit je einer dieser 4 Zah- 
len mit EOR zu verknüpfen. Ein 
paar Programmiertricks sollten viel- 
leicht erwähnt werden: 

Zeile 50: In 198 steht die Länge des 
Tastaturpuffers. Setzt man sie zu- 
erst auf OÖ und ‚wartet dann mit 
WAIT198,4 auf 4 Tasteneingaben, 
so kann man mit einem GET-Befehl 
gleich 4 Tasten auf einmal abfragen. 
Dies hat den Vorteil, daß auch Code- 


rem programm-codierer ===r===se= 
rem (p) 1/86 cbm revue team 
" MmMeam em mm umummumzzm zu mm ann nn 
rem (c) 05/86 . 
rem rudolf schmid-fabian 
rem postfach 10 50 27 
2a rem 6900 heidelberg 
rem 
rem u 
rem c=&b4,va20 
2 rem==achtung: bitte nur diewem=n 
= rememzeilen ab 40 eingeben! wm== 


we 


prinktehr$(14M)hbitte codewort ein 
geben! (4 zeichen) 


50 poke198,0:wait198,4ıgetas(O),as(l 
),as(2) ,as CH) sprintmoment bitte 


60 fori=O to FTrali)=asc (a$(i))ınext 
\v=?540:be=paek (45) +54 Xpeek (Ab) 4 


fori=OtoF:lvelvrlic®kpeek (1v) 


(ce and ali 


d=(c or a(i)) and not 
pokelv,dinext:if lvibe then 80 


110 
run 


printchr$(147)p044,10:p02560,03° 


120 
end 


pokes31,19:pokes32,15:pokel7B,.2: 


TIPS & TRICKS 


(a, b sind die gemerkten Zahlen) den POKE A-1,143 


eingaben möglich sind, die mit IN- 
PUT nicht möglich wären. Zum Bei- 
spiel kann man 3mal die STOP- 
Taste und einmal eine andere Taste 
betätigen (4mal geht nicht!). 


Zeile 60 wandelt diese Eingaben in 
ASCII-Codezahlen um. Zeile 70 
legt den Anfang (LV) und das Ende 
(BE) des Bereiches fest, der ver- 
schlüsselt werden soll. 


Zeilen 80 — 100 machen die Um- 
wandlung der Speicherinhalte. 


Zeilen 110 — 120 vereinfachen das 
Hochschieben des Basicanfangs um 
512 Byte. 631 bis 640 ist der Tasta- 
turpuffer und 19 der Code für 
HOME. 


Nun zur Anwendung des Programms: 


Bitte nur die Zeilen 40 — 120 ver- 
wenden, sonst wird das Programm 
länger als 512 Byte!! Nach dem Ein- 
tippen (und Abspeichern!) wird 

der Basicanfang mit POKE44,10: 
POKE256,0:NEW hochgesetzt. 
Dann kann das zu verschlüsselnde 
Programm eingeladen und mit 
POKE44,8 der Basicanfang wieder 
zurückgesetzt werden. Wenn Sie 
jetzt das Programm mit RUN star- 
ten und die Frage nach dem Code- 
wort (aufschreiben!) mit 4 Tasten- 
drucken beantworten, läuft das Pro- 
gramm los. Am Ende erscheint kurz 


pO44,10:p02560,0:run 


am oberen Bildschirmrand (pO ist 
die Abkürzung für POKE) und 
Zeile 120 schreibt nun ein HOME, 
RETURN (Codes 19 und 13) in 
den Tastaturpuffer. Dadurch wird 
. diese Zeile ausgeführt, das Pro- 
gramm startet. 


GEWOLLTER SYNTAX-ERROR 


Und endet natürlich gleich mit ei- 
nem SYNTAX ERROR, denn das 
Programm ist ja jetzt verschlüsselt. 
Jetzt muß man nur noch mit 
POKE44,8 den Basicanfang wieder 
zurücksetzen und abspeichern. 
Bei einem zweiten RUN wird das 
Programm entschlüsselt und ist wie- 
der lauffähig. Statt den Basicanfang 
zu verschieben, kann man das Pro- 
' gramm auch an den Programmcodie- 
rer mit Merge hinhängen. Dazu 
folgendes eingeben: 
PRINT PEEK(43),PEEK(44) 
“ (merken!) 
POKE43 ((PEEK(45)+256*PEEK 
(46)—2) AND 255 (RETURN) 
POKE44 (PEEK(45)+256*PEEK 
(46)—2) AND 256 (RETURN) 


Jetzt das zweite Programm laden 
und mit 
POKE43 ,a:POKE44,b 


Basicanfang wieder zurücksetzen. 
Die Zeilennummern des zweiten 
Programms müssen natürlich alle 
höher sein. Nun kann man leider 
nicht nur einfach die Codierung ab- 
laufen lassen und dann das codier- 
te Programm abSAVEn, denn beim 
Wiedereinladen werden die Basic- 
zeilen neu gebunden, d.h. die Link- 
adressen, die angeben, wo die näch- 
ste Zeile beginnt, werden neu be- 
rechnet. Beim codierten Programm 
würde dabei ein totales Chaos ent- 
stehen. Deshalb kann auch ein co- 
diertes Programm nicht mehr ver- 
ändert werden, jedenfalls nicht, 
wenn sich dabei die Länge der 
Basiczeile im Speicher ändert. Dies 
erhöht die Sicherheit des Pro- 
gramms noch zusätzlich. Man muß 
der Laderoutine ein künstliches 
Ende des Programms vortäuschen, 
indem die Linkadressen der Folge- 
zeile, ab der wir das Programm 
verstecken wollen, mit zwei Nullen 
überschrieben wird. 

Bei diesem Verfahren können wir 
die Zeilen 110 und 120 nicht brau- 
chen und ersetzen sie durch: 


l NE PREIUUNUHBRDORELCEN, 


120 STOP 


LV muß noch entsprechend ange- 
paßt werden (vor allem beim 
VC2O): 


RUN 120 (RETURN) 
A=PEEK(61)+256*PEEK(62):?A 
(RETURN) 


A ist die Speicheradresse, bei der 
der Computer weitermachen würde, 
wenn Sie, nachdem er in Zeile 120 
gestoppt hat, mit CONT weiter- 
machen würden. A bitte notieren. Im 
weiteren bitte für A immer den Zah- 
lenwert einsetzen! Für LV setzen 
wir jetzt At10 ein. Nun müssen die 
Werte in Zeile 110 eingesetzt 
werden. 


AAAA = A+l 
CCCC = A+2 
BBB erhält man durch:?PEEK(A+1) 
DD erhält man durch:?PEEK(A+2) 


Diese Werte in Zeile 110 einsetzen. 
Nun sind wir gleich am Ziel: 

RUN eingeben. Das Programm 
stoppt in Zeile 120 und alle Spei- 
cherstellen nach LV sind codiert. 


. Damit das Programm später in 120 


nicht stoppt, muß man das STOP 
entfernen. Jede Änderung im Pro- 
gramm ruft aber :die Basicbinderou- 
tine auf und die „versteht“ den co- 
dierten Teil mit Sicherheit falsch 
und vernichtet das Programm. 
Deshalb muß man das STOP 
wegPOKEn: 


(STOP hatte den TOKEN-Code 144, 
143 ist REM.) Bitte für A den Zah- 
lenwert einsetzen. Mit LIST 120 
muß nun ‘120 REM‘ dastehen. 

Jetzt wird nur noch die Linkadresse 
der Zeile nach 120 auf O gesetzt: 


POKE At1,0:POKE A+2,0 


Das Listing bricht jetzt nach dem 
REM in 120 ab, der Rest scheint 
verschwunden. Das Programm kann 
nun normal abgespeichert und spä- 
ter normal geladen werden. Beim 
nächsten RUN wird alles durch die 
zweite EOR-Verknüpfung wieder 
rückübersetzt, und auch die Link- 
adresse wird durch Zeile 110 restau- 
riert. Der einzige Nachteil, den wir 
in dieser Methode sehen, ist das 
etwas langsame Basic, wodurch man 
bei längeren Programmen etwas war- 
ten muß, bis die Übersetzung fertig 
ist. Aber vielleicht bringen wir spä- 
ter mal eine kurze Maschinenrou- 
tine, die das ganze blitzschnell er- 
ledigt. 

Bis dahin viel Spaß beim 


Verschlüsseln. (rsf) 


DIE HAND» 
BÜCHER 
DES 128 
UND128 D 


Wir konnten im neuen Commo- 
dore Handbuch für den 128’er 
wieder einmal Fehler feststellen. 
In einigen Handbüchern fehlt die 
Codetabelle gänzlich. Deshalb 
hier die Ergänzungen A7 — AI0: 
Im 80-Zeichen-Mode liegt auf 
Chr$(129) “dark purpur“. 
Auf Chr$(151) liegt “dark cyan“. 
Im 40-Zeichen-Mode ist die Be- 
legung wie beim C64, und zwar: 
Auf Chr$(129) liegt “orange“ 
und auf Chr$(151) “dark grey“. 
Weiterhin wurden vergessen: 
Chr$(28) “rot“, Chr$(29) 
“Cursor right“, Chr$(30) “green“ 
und Chr$(31) “blau“. 
Chr$(133) fl GRAFPHIC 
Chr$(134) f3 DIRECTORY 
+Chr$(13) 
Chr$(135) £5 DSAVE+Chr$(34) 
A 136) £7 LIST+Chr$(13) 
Chr$(137) f2 DLOAD+Chr$(34) 
Chr$(138) f4 SCNCLR+Chr$(13) 
Chr$(139) £6 RUN+CHr$(13) 
Chr$(140) f8 MONITOR 
+CHR$(13) 
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ZUERST MAL EINEN 


Geübte Programmierer 
machen sich vor der 
Befehlseingabe einen 
„Ablaufplan’. 
COMMODORE WELT 
sagt, welche Symbole 
Sie dabei verwenden 
können und wie ein 
solcher Programm- 
Ablauf-Plan gelesen wird. 


rung von Programmen 
angewendet. Da der Pro- 
grammablaufplan, in Zu- 
kunft PAP genannt, un- 
abhängig von einer Pro- 
grammiersprache ist, 
kann auch ein Laie sehr 
schnell den Programm- 
ablauf, bzw. das Pro- 
grammschema erkennen. 
Auch kann ein PAP rela- 


zum Lieferumfang. Damit 
ist gewährleistet, daß 
auch noch nach Jahren 
eine Programmänderun 
bzw. Anpassung möglic 
ist. Für jemanden, der 
noch nichts mit PAP’s zu 
tun hatte, ist es meist 
sehr schwer, seine Ideen 
und Programme in Form 
von PAP’s darzustellen. 


ne, die das Zeichnen der 
Symbole erleichter. Diese 
Schablone erhält man in 
Zeichenfachgeschäften 
und EDV-Abteilungen 
der Warenhäuser und 
Fachgeschäfte. 

In Bild 1 ist so eine Scha- 
blone abgebildet. 

Diese Symbole sind nach 
DIN 660001 genormt 


DIN 660001 Programmablaufplan 


Zeichenschablone 


Zeichenschablone DIN 660001 


1) Allgemeine Operationen 


Der Programmablaufplan 
als Hilfsmittel zur Pro- 
grammerstellung und Do- 
kumentation wird von 
jeher von Informatikern 
und Programmierern zur 
Erklärung und Erläute- 
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tiv einfach in die jewei- 


lige, Programmiersprache 


umgesetzt werden. Bei 
vielen kommerziellen 
Programmen gehört au- 
ßer anderen Dokumen- 
tationen auch ein PAP 


Deshalb nun einige Tips, 
die den Umgang mit 


- PAP’s, erleichtern. Um 


einen PAP zu erstellen, 

benötigt man außer den 
Kenntnissen der Sym- 
bole auch eine Schablo- 


(z.B. Berechnungen, 
Zuweisungen usw.) 


2) Verzweigungen (pro- 


grammierbarer Schalter) 


nforderungsatz: 


—T"Bitte geben Sie den 
Rodiis ein‘ 5 


4) Ein- und Ausgabe 


6) Grenzstelle (Start, Ende, 


Zwischenhalt) 


6) Übergangsstelle (Der Über- 


gang kann von mehreren 
Stellen aus, aber nur zu 
einer Stelle hin erfolgen) 


Ausgabe -Erklärung: 
Ein Kreis mit dem 
Redius R hat den Umfang U" 


Ablauflinien (Vorzugsrich- 
tung.von oben nach unten 
und von links nach rechts. 
Abweichungen werden 
durch Pfeile gekennzeich- 
net) 


und bedeuten im einzel- 
nen. 

Erklärung der gängigsten 
Symbole. 

1) Allgemeine Operatio- 
nen (z.B. Berechnun- 
gen, Zuweisungen usw.) 


2) Verzweigungen (pro- 

grammierbarer Schalter) 
.3) Unterprogramm 

4) Ein- und Ausgabe 


5) Grenzstelle (Start, Ende, 


Zwischenhalt) 

6) Übergangsstelle (der 
Übergang kann von meh- 
reren Stellen aus, aber nur 
zu einer Stelle hin er- 
folgen) 


PLAN! 


terten Erklärung). 

Nach der vielen Theorie 
schreiten wir nun zur Tat. 
Um einen PAP zu erstel- 
len, muß zuerst ein Kon- 
zept über die Tätigkeit 
des Programmes vorliegen. 


Ein Computerfreak möch- 
te sich einen neuen Com- 
puter kaufen. Dieses ist 


zutreffen, soll das Pro- 


- gramm vom Kauf abraten. 


Nun zur Erklärung des 
PAP. Jeder Lösungsweg 
hat zwei Grenzstellen, die 
durch ein Oval gekenn- 
zeichnet sind. Nach dem 
Start kommen wir zu ei- 
nem Rechteck, das für 
die allgemeine Operation 
steht. Hier werden die 
Variablen P und L fest- 
gelegt. Da man das -Recht- 
eck nicht unbegrenzt 
groß zeichnen kann, greift 
man zu einem Hilfsmit- 


dungen findet die Raute 
Verwendung. Während 
die anderen Symbole nur 
einen Ein- und Ausgang 
haben, hat die Raute 
zwei alternative Ausgän- 
ge, mit den logischen 
Entscheidungen JA oder 
NEIN. Verbunden wer- 
den die Symbole mit den 
Ablauflinien, die mit 
Pfeilen gekennzeichnet 
werden (Laufrichtung), 
aber nicht müssen. Nur 
wenn die Linien von 
rechts nach links und von 


unten nach oben verlau- 
fen, müssen Pfeile ange- 
bracht werden. Erstreckt 
sich ein PAP über mehre- 
re Seiten, ermöglichen die 
Konektoren, daß sind mit 
Zahlen versehene Kreise, 
ein leichtes Wiederfinden 
der weiterführenden 
Linie. 

Beispiel Nr. 2 

Hier soll in einem Pro- 
gramm der Umfang eines 
Kreises, bei gegebenem 
Radius errechnet werden. 
Die Gegenüberstellung 
mit dem entsprechendem 
Basic-Programm zeigt, wie 
einfach eine Umsetzung 
eines PAP in eine Pro- 
grammiersprache ist. 
Beispiel Nr. 3 zeigt eine 
FOR-NEXT-Schleife, wie 
sie immer wieder als Zähl- 
oder Warteschleife vor- 
kommt als PAP und 
Basic-Listing. 

Als letztes Beispiel noch 
ein PAP, in dem ein Re- 
set des Computers dar- 
gestellt wird. Dieser Ab- 
lauf findet auch bei je- 
dem Einschalten des Com- 
puters statt. Fürs erste 
soll es genug sein. Sollten 
Sie irgendwelche Fragen 
haben, schreiben Sie an 
die Redaktion. Nun kann 
ich Ihnen nur noch Hals- 
und Diskettenbruch 
wünschen. 


Beispiel (3) Beispiel (4) 


7) Ablauflinien (Vorzugs- aber von zwei Faktoren tel, nämlich der eckigen 
richtung von oben nach abhängig. 1. von einer Klammer. 

unten und von links nach Lohnerhöhung von min- Ein- und Ausgaben wer- 
rechts. Abweichungen destens 5% und einer den mit dem Parallelo- 
werden durch Pfeile ge- Preissenkung von minde- gramm dargestellt. 
kennzeichnet) stens 100,— DM. Sollte Für Verzweigungen 


8) Bemerkung (zur erwei- eine dieser Faktoren nicht und logische Entschei- 
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TEST ” 


Durch die für die Benut- 
zung an Fernsehgeräten 
entwickelten Zeichen- 
Rom des VC-20, sind die 
Zeichen zwar gut lesbar, 
aber mit 506 Zeichen 
auf dem Bildschirm sind 
die Grenzen recht eng 
gesetzt. Neidisch blickt 
man auf die anderen 


80 Zeichen-Karte 


Commodore-Computer, 
die mit 1000 Zeichen . 
(C64,C16,Plus4) bzw. mit 
2000 Zeichen (CBM 
8032) auf dem Bildschirm 
aufwarten. 40 oder 80 
Zeichen auf dem VC-20, 
das wäre eine Wucht. 
Doch wie macht man das? 
Eine Softwarelösung ist 
zwar möglich, aber sehr 
aufwendig, da neben ei- 
nem neuen Zeichensatz 
auch Teile des Betriebs- 
systems geändert werden 

. müssen. Da bietet sich ei- 
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ne Hardwarelösung gera- 
dezu an. Eine dieser Lö- 
sung ist die 40/80 Zei- 
chenkarte der Firma 
Roos. Schauen wir uns 
die Karte einmal näher 
an. Als erstes fällt auf, 
daß die Karte, wie viele 
andere Hardwarezusätze 
auch, kein Gehäuse be- 


sitzt. Ob es eine Preisfra- 
ge ist, weiß ich nicht. 
Aber so können wir uns 
vom Aufbau, der im üb- 


‚rigen sehr sauber aussieht, 


überzeugen. Nach dem 
Einstecken der Karte und 
dem Einschalten des 
VC-20 können wir uns an 
dem scharfen 40 Zeichen- 
bild erfreuen. Auweia! 
Weiße Schrift auf schwar- 
zem Grund. Nicht gerade 
augenschonend. Aber was 
soll’s. Wofür hat der VC- 
20 denn die Farbtasten. 
Pustekuchen. Farbe ist 
nicht. Allen Bemühungen 
zum Trotz läßt sich keine 
andere Farbe einstellen. 
Was soll’s, wir müssen es 


als gegeben hinnehmen. 
Wollen doch mal sehen, 
was die Karte sonst noch 
zu bieten hat. Ein Blick 
in die Gebrauchsanleitung 
soll uns weiterhelfen. 
Naja, Gebrauchsanleitung 
ist ja gestrunzt. 2 magere 


Blättchen müssen genügen. 


Vielleicht reicht es ja. 

Während des Einschaltens 
kann man durch Drücken 
der RECHTEN Shifttaste 


“uuuEERERRREUEERREN 


und einer Zahlentaste 
(1-8) den Zeilenabstand 
in Punkten einstellen. 
Ach so, falls Sie auf Ih- 
rem Fernseher nichts se- 
hen, müssen Sie noch das 
Kabel, das zum Modula- 
tor (das ist der silberne 
Kasten) führt, in die DIN 
Buchse der 40/80 Zei- 
chenkarte stecken. Zum 
Einstellen der 80 Zeichen 
muß man während des 
Einschaltens die Shift- 


taste drücken (die rechte). 


Allerdings sollten Sie 


- dann einen Monitor be- 


nutzen, denn auch mit 
Brille ist auf dem Fernse- 
her nicht viel zu sehen. 
Da die Karte einen eige- 


nen Videokontroller be- 
sitzt, können mit verschie- 
denen SYS und POKE 
Befehlen noch einige an- 
dere Sachen angestellt 
werden. SYS 43000 fügt 
dem Basic-Speicher den 
nun freien Bildschirmspei- 
cher von 512 Bytes zu. 
Mit POKE 642,4:SYS 
43000 können dem Ba- 
sic-Speicher nochmals 3 
KByte zugefügt werden. 
Mit SYS 43003 kann die 
obere Bildschirmzeile für 
Mitteilungen festgelegt, 
und mit SYS 42997 dem 
Bildschirm wieder zuge- 
fügt werden. Wollen Sie 
wieder den Original VC- 
20 Bildschirm einschalten, 
tippen Sie SYS 64802 
und halten dann die 
RETURN-Taste einige 
Sekunden gedrückt. Alles 
in allem nicht schlecht, 
kann man doch den 
VC-20 fast zum PC auf- 
rüsten, wenn, ja wenn 
nicht einige Wermuts- 
tropfen wären.-Die feh- 
lende Farbumstellung 
wurde schon bemängelt. 


SOFTWARE FEHLT 


Da die Steuersoftware 

im A000 Bereich liegt, 
lassen sich Hilfsprogram- 
me wie VC-Extra, Ex- 
basic-Level FH usw. nicht 
benutzen, da sie auch in 
diesem Bereich liegen. 
Hier stellt sich dann die . 
Frage nach fertiger Soft- 
ware für den VC-20 mit 
80 Zeichen. Ich habe 
nichts gefunden. Also 
bleibt nur das Selbstpro- 
grammieren übrig. 

Aber ohne Tools? 
Vielleicht sollte die Firma 
Roos mal darüber nach- 
denken. Da auf der Karte 
2 Rom 2732 vorhanden 


‚sind, sollte es doch mög- 


lich sein, ein Textpro- 
gramm, das sich bei 80 
Zeichen förmlich anbie- 
tet, als E-Prom zu liefern. 
Fazit: Ein gutes Bild 
macht noch keinen guten 
Computer, wenn die Soft- 
ware fehlt. Sollte man 
sich diese Karte anschaf- 
fen, muß man sich seine 
Programme schon selbst 
schreiben. Y 

Bernd Welte 


* Gesucht *** VC-29 **** 
Programme: THORN EMI 
totl. Text. 2.0 Disketten- 
version ** VC-20 
Datei-Programm 

Detlef Lämmermann 
Burgsteig 6, 8549 Abenberg 


DIXY — der Club 
Clubbedingungen und Info’s 
Bitte anfordern bei 

Dieter Pflaum, 

Galileistraße 9 

6800 Mannheim 1 
Rückporto nicht vergessen!! 
Raum Solingen. Suche Club 
oder Interessierte für C64 
zwecks Erfahrung 

S.-V. Tausch 

Rainer Bickehoer 

Jaegerstr. 20 ° 

5650 Solingen 

Tel. 0212/50317 
VC-20+3KB+16KB+t 
Spiele + 4 Spiele Bücher + 
Listings in Sammelmappe 
Preis 350,— DM + Porto 
Angebote an: 

Werner Weinert ° 

Am Koer 19 

5970 Plettenberg 

Suche Software für C-64 
(Disk.) 

Angebote und Listen an: 
Thomas Becker, In den 
Füllen 8, 5112 Baesweiler 
C64 Software C64 

Cassette Schloßzauber + 
"Psychiater 10,— DM 

Suche Tauschpartner Liste 
gegen Rückporto 

Volker Coert, Söllingstr. 4-8, 
4300 Essen 1 

VC-20 Neue Liste Tausche 
Soft + Hardware von privat 
Cassette Horoskop + Landes- 
verwalter + 8 Kiram 10,- DM 
Liste gegen Rückporto! 
Volker Coert 

Söllingstr. 4-8 

4300 Essen 1 

Suche neueste Software sowie 
zuverlässige Tauschpartner 
für C-64 und Atari 520 ST 
Antworte garantiert (Rück- 
porto ( C-64 Club, Postfach 
68, A-4780 Schärding Austria 
Verkaufe günstig Original SW, 
z.B. 9 Princess in Amber, 
Zorro, Desert Fox, Revs, 
Street Hawk, Knight Rider 
etc. Liste anfordern (Rück- 
porto beilegen) 

C-64 Club, Postfach 68, 
4780 Schärding, Österreich 
DEUTSCHER ZEICHEN- 
SATZ für GP10OVC + 
MPS801 Modul 29 DM, 
8086 Moorenweis 


Verk. für VC 20 

16 K Erweiterung, Program- 
mier-Hilfemodul, 15 Spiel- 
module, deutsche und ameri- 
kanische Literatur. 

Tel. 0221/245892 


XXXX VC-20 XXXX C64 X 
Ich verkaufe meine Software- 
Liste gegen 1 DM anfordern 


. bei Burkhard Montag, 


Königreicherstraße 35, 
2155 Jork/Königreich 


C64/VC-20 mini-club 
Postfach 1314 

415 Krefeld 29 

Tel.: 02151/735946 

Info gegen Rückporto 

Wir suchen noch Kontakte 
zu anderen Computer-Clubs! 
Bitte meldet Euch bei uns! 


Verkaufe: ‚„C-64 BASIC- 
Kurs‘ (Original Commodore 
Programmcassette) VB: 

9,99 DM 

„Das Hacker Handbuch“ 
(Roger Bouteiller, Edition 
aragon) VB: 9,99 DM 

Jürg Güttel, Kölner Str. 99, 
5650 Solingen 1 

Achtung C64!! Suche Tausch- 
partner! Liste gegen Rück- 
porto bei: Herbert Rey, 
Dorfstr. 54, 4612 Wangen 
b./0 (Schweiz) 

C64-Neuling s. interes. An- 
wenderprogramme + Spiele 
sowie Zubehör, Programme 
evtl. auch i. Tausch. 
Angebote bitte an 

Klaus Heck, Postfach 2211 
8500 Nürnberg 1 

C64 Suche Tauschpartner. 
Nur zuverlässige Leute. Tape. 
Gute Games. Schickt Eure 
Listen an Roger Lapwig, 
Weidenweg 13, 6733 Hassloch 
An alle C-64 Freaks: Verk. u. 
tausche Superspiele (Mo, C): 
Donkey Kong 27 DM, Jungle 
Hunt 6 DM, Bomb Jack (!!!) 
16 DM (M), The Hobbit 
(neu) 8 DM, Dragonworld 

12 DM ... W. Freye, Tel. 
05405/3750 


*%* VC20 *%* 
Suche 40/80 Zeichenkarte, 


Steckplatzerw., Maschinenspr. 


Mon. Winfried Metzler, 
Mollerstr. 28, 61 Darmstadt 


Kaufe C-64, Floppy, Drucker 
Kaufe C-64, Floppy, Epson 
Kaufe C-64, Floppy, Drucker 
Kaufe C-64, Floppy, Epson 
C. Radlgruber, Passauer Str. 
22, A-4780 Schärding, 
Austria, Postkarte genügt, 
rufe sofort zurück 


Für VC-20 Assembler Texas 

‘ und das Buch Grafik mit dem 
VC-20 gesucht. 

Karlheinz Busch, 

Hähnchen 27, 

5227 Windeck-Wiedenhof 
02291-5170 : 


Suche alte, noch vollständige 
Computerhefte (auch Sonder- 
hefte). Bezahle als Höchst- 
preis den Kaufpreis. 

Listen an: 

Ulrich Müller, Hertzstr. 45, 
8600 Bamberg 


Suche für den VC-20 Erwei- 
terung (16K oder 32K) + 
Modulbox. Angebote bitte 
an: Reemt-Siegfried Heijen 
Weenermoorerstr. 166 

2952 Weener - 

***%* Achtung **** 

C-64 Suche C-64 + Datasette 
ohne Software jedoch mit 
Trafo und HF-Modulator! 
Muß technisch und optisch 
ok sein. PREISVORSTEL- 
LUNG: bis 230 DM. Anrufe 
ab 18 Uhr — 19 Uhr. Rufe 
zurück! Telefon: 0234 
(Bochum) 230745 

Drucker MPS 802 600 DM 
mit 3 Betriebssystemen u.a. 
EPSON-Grafik kompatibel 
Drucker CBM 4022 400 DM 
Computer CBM 3016 400 DM 
Tel.Nr. 06134/64927 nach 17 
17h 

Suche Top Games für VC-20 
z. B. Olympics, Hesgames bis 
16K Listen an. Frank Schnei- 
der, Josef-Roemer-Str. 64, 
5060 Bergisch Gladbach 

Tel. 02202/51800 

Computer Club Therwil 

Wer will in unserem Compu- 
terclub Mitglied werden? 

Es werden Erfahrungen 
ausgetauscht und es gibt 
auch einen Club-Info. 
Informationen über Telefon 
061/73 31 24 (Schweiz) 
Suche dringend Programm 
um Briefe zu schreiben. Wür- 
de auch dafür bezahlen. 
Bitte um Antworten. Für 
Commodore PC128-D und 
C-64. Bitte nur Disketten 

M. Jung, Schmachtendorfer 
Str. 158, 4200 Oberhausen 
11 


** TAB FIT ** Univers. 
Tabellenberechnungspr. 

(in max 7 Sek.) f. den C64. 
Anwendung f. bel. viele 
Ligen, auch zur Sport- 
verwaltung, Info: 80 Pf. 

U. Nuttelmann, 2933 Jade 
2-RM. 


Suche Startprogramme für 
Simons-Basic Assembler und 
Pascal (Diskette) sowie 
Arbeits- und Spielprogramme. 
Liste an: Rudolf Schmitt, 
Hofstraße 3, 5431 Ruppach- 
Goldhausen 


Suche C64 (+ evtl. Floppy 
1541 oder Bildschirm) 
Andy Kropf, Sonneggweg 18, 
CH-3110 Muensingen 

VC 20* VC 20* Suche 16K/ 
8K Erweiterung günstig 
Tausche GV-Spiele. Suche 
Schachprog. für GV * Listen 
an A. Münzber, Große Burg- 
str. 59, 2400 Lübeck 1, * 
Auf Kassette 


Akus.koppler, DFÜ-Software, 
Spielelösungen, Spielepokes. 
Für C-64 preiswerte Angebote 
an: A. Hupperz, Breitestr. 59, 
4150 Krefeld. 

Nur Briefe (keine Anrufe!) 


Suche für VC20 8 + 32K Er- 
weiterungen (oder Schalt- 
pläne). Außerdem Modulbox 
VC 1020 + Kopie von Anlei- 
tung für das VIC-1212 Modul 
+ Listings für Spiele. Angebote 
an; R. Weber, Offenburger. 
straße 12a, 759 Achern 14 
T. 07841/5136 nach 17 h 

** VG 20 + 8 K** MC-Moni- 
tor mit Fasttape (= 20,— D = 
25,— desgl. mit Diskmonitor 
(= 25,— D = 30, — 4 ver- 

sch. Bereiche oder Tausch 
gegen Assembler f. VC20 oder 
Modulprg. Torsten Grünner, 
Mark-Twain-Str. 5, 33 Braun- 
schweig 

Drucker Seikosha GP-100 VC 
zu verk., anschl.- fertig f. 
C64, VC 20 etc., Preis 280 
DM, 1 J. alt, kaum ben., 
16K-Erw. f. VC 20; schaltb., 
Preis 80 DM. Jürgen 
Hlawenka, Rathausplatz 4, 
51 Aachen, Tel. 0241/17896 


** COMMODORE 64 ** 
Besitze über 400 Topgames!! 
Bestellt Euch die Liste (zum 
Tauschen und Kaufen) bei 
Frank Pelzer, Wallhecken- 
str. 25, 4280 Borken 3, 
gegen 0, 80 DM Rückporto. 
**Alle Spiele auf Kassette** 


Suche billige 1541! Preisvor- 
stellung: bis 200 DM. Wer 
kann mir bei Pockett-Radio 
auf dem 64’er weiterhelfen? 
(Hard- + Software) Bitte 
melden bei: Backer, Mühlen- 
str. 30, A-3512 Reinhards- 
hagen 1 


BÖRSE | 


HELP 
Suche dringend defekten 
Computer CBM-30xx, 40xx 
oder 80xx, auch Total- 
schaden! Zahle gut!! 
‘ Stefan Pommer, Ringstr. 23, 
8401 Alteglofscheim 
KkkK%r *DRUCKER****** 
BMC-BX-100, umgebaut — 
auf EPSON-FX-80 (Test 64’er 
Ausg. 11’84), 1 Jahr alt, Top- 
zustand, wenig benutzt 
SUPERPREIS DM 850,—!! 
Stefan Pommer, T. 09453/739 
Suche HF-Modulator für VC- 
20, Software 8-32 Kb, 
Schach, billigen DRUCKER 
Tel. 04331/6179 oder LISTE 
an. R. Kröger, Pestruper- 
str. 30, 2878 Wildeshausen 
VC-64 suche Floppy Preis 
ca. DM 300. Angebote bitte 
an: Walter Kerckhofs, Nach- 
tigallenstr. 4, 5000 Köln 90. 
Nur Raum Köln-Bonn suche ' 
ebenfalls billige Programme 
auf Kassette. 
Suche Anwenderprg. z.B. 
Text, Lager, Steuer etc. für 
C64 auf Kassette. - 
Suche defekte Geräte z.B. 
Datasette, Computer, Floppy, 
Drucker. Ebenso Schalt- 
pläne (Kopien) für Commo- 
dore und Schneider. 
H.P. Peitz, Vohwinkelstr. 145, 
56 Wuppertal 11 


!Suche! 

Schüler sucht C64 + Data- 
sette. Angebote bitte an: 
Stefan Strecker, Auf der 
Ahl 101, 62 Wiesbaden 
Tel. 06122/12981 

(nur nach 18 h) 


IBM-PC Kontakte zwecks 
Erfahrungsaustausch gesucht. 
Zuchold, 06120/1634 | 
Verkaufe: Commodore CBM 
610, 128KB RAM, Basic 

4.0, 80 Zeichen, 6581 Sound- 
synth. + Zenith Grün Monitor 
+ Schwenkfuß, alles neu nur 
1098,— DM; Tel. 07053/7618 
ab 18h 

Original-Programme für C64 
auf Disk:.Master 64 (Data- 
Becker); von SM : Male; SM- 
Text; ISM 64; Joker; KIT 64 
alles DM 60,—. Zaxxon 20,— 
DM; Summergames 25,— DM 
alle Preise + N.N.: Moggert, 
Ottosäule 11, 8012 Otto- 
brunn, Tel. 089/6092471 
SUPERVOKABELTRAINER 
C64-Disk DM 20,— auf 
Postsch. München, 
273394-807; T. 089/6092471 


Verk. 12 Spielkass. für den 
C64-garantiert original!!! — 
Für zusammen nur 100 DM 
(+ Porto): Zaxxon, Hunch- 
back, Scramble usw.! Außer- 
dem 8x Input 64 (Kass.) — 
zus. 50 DM! 

Michael Staab/Winnestr. 13/ 
8764 Rüdenau / Tel.: 09371/ 
67918 f 

Suche für Commodore VC20 
Speichererweiterung 8-32K- 
Byte preiswert zu kaufen 
sowie Data-Becker-Buch 
VC20 intern und Schaltpläne 
für Selbstbau von Speicher- 
erweiterung. Klaus-D. Wesner, 
Bergisch-Gladbacher-Str. 103, 
5000 Köln 80. T. 0221/ 
617885 

Verkaufe Farbdrucker!!! 
Seikosha GP 700 VC — 4 
Monate zum Neupreis incl. 

2 Farbbänder DM 1300,— 
sehr wenig gebraucht — für 
nur DM 950,— — Direkt 
anschließbar!! — noch Garan- 
tie!! Manfred Heyduk, 
Oberhoferstr. 7,8968 SEN 
Suche Drucker!!!! 

Epson, Star, MT, Riteman, 
oder andere — bis DM 800,— 
incl. Interface für C64! 
Angebote an: Manfred Hey- 
duk, Oberhoferstr. 7, 8968 
Durach, PS: Suche Farb- 
monitor 

VC20 Habe noch einige Steck- 
module Tel. 07249/6053 
Handbuch für Datenfern- 
übertragung mit vielen Tricks 
gegen Unkosten Info 80. 

Pf. a. Leonhardt. Auf der 
Reide 39, 4000 Düsseldorf 
HALLO Schüler! Für nur 
10,— DM je Programm. ver- 
kaufe Programme wie Qua- 
dratgleichungen, Wurzel- 
gleichungen, Exponential- 
gleichungen, Satz des Eu- 
klid, Englisch-Französisch- 
Chemielernprogr. Schreibt 


‚an Stefan Müller, Wiesenstr. 


59, 6750 Kaiserslautern 
Verkaufe Programm für C16 
auch Tausch. Melden bei: 
Christian Schmidt, 
Schulzthal 8737, 
Hauptstraße 62 


Verk. C-64 Steckmodul 
(Music-Machine) und Text- 
abenteuer (TKKG) auf Cas- 
sette gegen Höchstgebot + 
Rückporto (2 DM) (Ori- 
ginal-Artikel) 

Angebote an: 

Frank Broll, Bachstr. 12, 
4400 Münster/Angelmodde 


Suche Drucker MPS 801-802- 
803 und Spiele für C64 
Angebote an: 

Jochen Haber 

Am Eisweiher 2 

7560 Gaggenau 

Tausche, kaufe oder ver- 
kaufe Software für den VC20 
von der Grundversion bis 16K 
Besonderes Interesse an 16K. 
Spielen. Suche günstig Druk- 
ker und Floppy. 

Bernd Brües, Jahnstr. 37, 
4060 Viersen 12 
Überörtlicher Computer-Club 
für C-64 (Programmtausch, 
Zeitung.) Aktuelle Club- 

disk gegen 10 DM. Info 

gegen Porto. Postadresse 


“ Scholz, Frankenbergerstr. 20, 


51 Aachen 

Suche: Assembler Trainings 
Buch von Data Becker. 
Angebote bitte an: Wolfgang 
Röhrs, Grabbestr. 13, 8500 
Nürnberg 90, 0911/303313 
Suche für VC-20: 64K-Er- 
weit. + 40/802.-Karte. ++ 
Floppy 1541 + Turbo für 
VC-20 an Fl. 1541 u. Cass. 
1531 ++ Drucker-Plotter 
4farbig für Endlos u. Einz. 
Blatt. ++ Bücher VC-20- 
intern, + List. —— B. Wische- 
mann, Otto-Hahn-Str. 3, 
4030 Ratingen 1 

C116/16 plus/4!!! Wir grün- 
den einen Programmum- 
schlagspunkt. Brief mit Frei- 
umschlag und zusätzlich 

80 Pfg. Briefmarke an: 
Hans-Joa. Turban 

Bachstr. 6, 8491 Tiefenbach 
Loese Heine C-16 original 
Sammlung auf! Habe: Robin 
in the Rescue, Monkey- 
Magic, Timeslip, Defence, 
Hustler, Slipperysid, out on 
a limb, Scramble, Berks 1, 2, 
3. Bestellungen ohne Geld 
bitte an: Roland Fuchs, 
Blanckenagelweg 9, 

4770 Soest. Außerdem noch: 
Galaxy. Preis: je 20 DM 
Suche C-64, Zubehör u. Prog. 
G. Buie, obere Karlstr. 4, 
8523 Baiersdorf 


C-64 Billigsoftware Anwen- 
dungen, Datenverwaltung, 
Spiele. Th. Lavid, Web- 
schulstr. 44, 4050 M’gladbach 
Verkaufe neuwertigen C128 
Garantie bis Mai 86 

VB: 850 DM 

Werner Hoffmann 
Zinnebeis 22 

8450 Amberg 

ap 7:09621/12192 


Tausche Seikosha GP’100VC 
Commodore Combat, DLE 
gegen Drucker mit 
Centronics-Schnittstelle oder 
Kauf. Tel. 0221/4971963 
Suche f. 64/12 Horoskop/ 
Bior. / Gedicht-/Kreuzwort- 
rätsel-Programme 

Udo Moser, Alscherstr. 16a, 
5760 Armsberg 14 

Suche f. VC-20/GV-32K. 
Anwender-Programme, 
Literatur, MPS-801, Floppy. 
Suche auch Möglichkeit f. 
Maschinenspracheingabe, 
sowie Anschluß an User-Club. 
W. Skibowski, Hauptstr. 40, 
465 Gelsenkirchen 

Verk. für VC-20: Monitor + 
40/80 Zeichenkarte DM 290,— 
Steckplatzerweiterung 6fach 
+ Epromkarte mit Maschi- 
nensprache DM 120,—. 


-Tel. 09732/4297 


Suche: Rumänischen Zeichen- 
satz für Drucker Epson FX80 
mit einem Görlitz Interface 

f. C64. 

Suche: f 

Vizawrite nur Original für 
C64 als Modul od. auf Disk. 
bis DM 100,— 

Tel. 09732/4297 

Wer hat Erfahrung beim 
Umbau von einem Epson- 
Drucker FX80 mit Görlitz- 
Interface auf NLQ-Schrift, 
wie beim FX-85. Tel. 09732/ 
4297. Rufe zurück. Verkaufe: 
Grandmaster Origin. Cassette 
für C64 für DM 20,— 

F. Schuster, Karlsbader Str. 
12, 8783 Hammelburg 
Verkaufe Farbmonitor 

Sanyo CD3185 A VB: 600 DM 
Werner Hoffmann 

Zinnbeis 22 

8450 Amberg 

T. 09621/72132 

Verkaufe VC20 Module: 
Programmierhilfe, Sargon 

II + 16K Erweiterung 100 DM; 
Orig. Schreibmaschinenkurs 
auf Kassette 25 DM; Modul- 
box mit 5 Steckplätzen 50 DM 


- T. 09621/72132 


Suche C64 ohne Defekte 
bis 300 DM. Bitte bis zum 
24.2.86 nur schriftliche An- 
gebote ab 25.02.86 auch 
telefonisch ab 18 h. 

Tel. 08245/2117 


VC20 Software billig zu 
verkaufen. Liste gegen 1 DM 
in Briefmarken. Sven Faul- 
haber, Mühlenweg 7, 3401 
Sealingen 


RUNDUM KLASSE! 


Der Commodore 64 ist weltweit der bekannteste und meistverkaufte 
Homecomputer. Dafür sorgte vor allem seine exzellente Hardwareausstat- 
tung. So vielseitig die Möglichkeiten des Rechners damit sind, so 
einfach und unzureichend ist das eingebaute BASIC V2.0. Ein Maschinen- 
sprache Monitor, über den die Commodore-Rechner der 4000er und 6000er 
Serie verfügen, fehlt ebenfalls. Seit Erscheinen des C-64 gab es daher 
eine Flut von Tools (Programmierwerkzeuge) und Utilities (Hilfs- 
programme) um den Anwendern das Schreiben von Programmen 
zu erleichtern. 


Fast Disk & Cassette Loader e 
| LT Toolkit » Head Alignment Kit 
i Centronics Interface 
ji 1] a Machine-code Monitor e 
| TE: | | Other Utilities 
mujl 2 2 IT 
Hi iM Ill 
Uli) 
"u 
Im 
m ji! 
“ Il 
MM mul! II 
COMMODORE 64/128 


871/79 IYIOAOWWO) 
ROBCO 


Um diese Tools einsetzen zu kön- 
nen, müssen sie zuerst von einem 
Peripheriegerät wie Kassettenrekor- 
der oder Diskettenlaufwerk in einen 
geschützten Speicherbereich gela- 
den und anschließend gestartet wer- 
den. Sollte der Rechner beim Pro- 


grammieren abstürzen, ist die ge- 
samte Prozedur zu wiederholen. 
Sind viele Funktionen im Tool ent- 
halten, begrenzt dies merklich den 
für das eigentliche Programm be- 
nötigten Speicherplatz. Deshalb ging 
man dazu über, die für den Commo- 


dore 64 dringend benötigten Tool- 
kit Funktionen, als Modul anzu- 
bieten. 

Die COMMODORE-WELT testete 
für Sie das ROBCOM TURBOTOOL 
Modul. Das Modul wird in den Ex- 
pansions-Port (rechter Steckplatz 
beim C-64, bzw. oben beim SX-64) 
eingesteckt. 

ACHTUNG: Module niemals aus- 
oder einstecken, wenn der Rechner 
eingeschaltet ist. Haben Sie das Mo- 
dul nun eingesteckt und anschlie- 
ßend den Rechner eingeschaltet, 
steht Ihnen sofort der gesamte Be- 
fehlsvorrat (Tabelle) des ROBCOM 
Toolkits zur Verfügung. Das Modul 
ist mit einem RESET-Knopf ausge- 
stattet. Sollte sich Ihr Rechner beim 
Programmieren oder bei einem Test- 
lauf verabschieden und auf keiner- 
lei Tastatureingaben mehr reagieren, 
betätigen Sie einfach den RESET- 
Taster und Sie erhalten die ursprüng- 
liche Einschaltmeldung. Das lästige 
Aus- und Einschalten, zur Initiali- 
sierung mit totalem Programmverlust, 
entfällt für immer. Danach tippen 
Sie einfach OLD ein und Ihr 

BASIC Programm kann weiter 
editiert werden. 


WAS BIETET ROBCOM? 


Das ROBCOM Modul enthält Funk- 
tionen zur Unterstützung der Pro- 
grammierung in Basic und in Assem- 
bler, Befehle zum komfortablen Um- 
gang mit dem Floppy-Laufwerk 

und dem Kassettenrekorder, 
Floppybeschleuniger und Turbo 
Tape, sowie Kopierkommandos. 

Das Toolkit stellt Ihnen eine Cen- 
tronics-Schnittstelle am User-Port 
zur Verfügung. Mit einem einfachen 
Kabel können Drucker mit Cen- 
tronicseingang angeschlossen wer- 
den. Die Funktionstasten sind mit 
nützlichen Befehlen belegt. Tip- 

pen Sie SHOW ein, werden alle 

im Modul enthaltenen Befehle über- 
sichtlich aufgelistet. 


BASIC-TOOLKIT 


Alle Befehle zum komfortablen 
Programmieren in BASIC stehen 
zur Verfügung: 


SET: einfaches Festlegen der Far- 
ben des Hintergrundes und des 
Bildschirmrandes 

REP: Wiederholfunktion für alle 
Tasten einschalten 

AUTO: automatische Vorgabe der 
Zeilennummern in der gewünsch- 
ten Schrittweite 

RENUM: automatische Neunume- = 
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TEST 


rierung, falls Ihr Programm durch 
viele Zeileneinschübe unübersicht- 
lich wurde, wobei selbstverständ- 
lich die Zeilennummern nach 
GOTO, GOSUB, THEN korrekt 
angepaßt werden 

DEL: löschen von Zeilenbereichen 
PLIST: die Programme werden sei- 
tenweise gelistet 

FIND: das Programm wird nach 
der vorgegebenen Zeichenfolge 
(Text, Namen von Variablen oder 
BASIC Befehle) durchsucht 
DUMP: bei Programmunterbre- 
chung werden die momentanen 
Werte der Variablen ausgegeben 
TRACE: ermöglicht das schrittwei- 
se Verfolgen des Programmablaufs. 
Die gerade bearbeitete Zeile wird 
am Bildschirm ausgegeben 

HELP: listet bei Fehlern im Pro- 
grammablauf die fehlerhafte Zeile 
auf und setzt den Cursor auf die 
vermutete Fehlerstelle 

DEC, HEX: umrechnen vom dezi- 
malen in das hexadezimale Zahlen- 
system und umgekehrt. 


FLOPPY-KOMMANDOS 


Hervorzuheben ist der im Modul 
enthaltene Floppybeschleuniger. 
Ohne jede Eingriffe oder Umbauar- 
beiten an der Hardware des Com- 
modore 64 oder der Floppy 1541, 
werden Programme fast sechsmal 
schneller geladen. Außerdem kön- 
nen Sie Programme von Diskette 
an im Speicher befindliche Pro- 
gramme anhängen, das Directory 
ohne Programmverlust ansehen, 
Programme absolut laden oder die 
Geräteadresse der Diskettenstation 
von 8 auf 9 ändern. Selbstverständ- 
lich stehen Ihnen auch die üblichen 
Befehle wie Scratch, New, usw., 
ähnlich wie im DOS 5.1, zur Ver- 
fügung. 


KASSETTEN-KOMMANDOS 


Das Robcom Modul beschleunigt 
auch den Umgang mit dem Kasset- 
tenrekorder. Die Programme wer- 
den ca. 1Omal schneller auf Band 
geschrieben. Es gibt Befehle zum 
Laden, Speichern, Vergleichen und 
Verbinden von Programmen. 

Als wohl einziges Modul bietet 
Robcom Ihnen die Möglichkeit, 
den Tonkopf des Kassettenrekor- 
ders zu justieren. Dazu ist dem 
Modul eine Referenzkassette beige- 
legt. Beim Abspielen dieser Kasset- 
te wird am Bildschirm ein bestimm- 
tes Streifenmuster dargestellt, das 
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BEFEHLSÜBERSICHT 


BASIC-TOOLKIT 


AUTO DEC DEL DUMP FIND 
HELF HEX KEY OLD PLIST 
QUIT RENUM REP RESET SEI 
SHOW TRACE 


MONITOR-TOOLKIT 


ASSEMBLER BREAKPOINT COMPARE 
DISASSEMBLER EDITOR FiLL 

GO HUNT INTERROGATE 
JUMP LOAD MEMORY 
MEMTOP NEWLOCATOR ORIGIN 
PRINTER QUICKTRACE REGISTER 
SAVE TRANSFER VIDEO 

WALK EXIT ZIP 


DISK-KOMMANDOS 
DLOAD DMERGE DSAVE DVERIFY FLOPPY 


KASSETTEN-KOMMANDOS 
PUT GET COMP MERGE 


KOPIER-KOMMANDOS 
EOFY RECOMP. DEV 


DRUCKER-KOMMANDOS 
CENT COLUMN 


es Ihnen ermöglicht, den Tonkopf zu bringen. Oft sind dann stunden- 


optimal einzustellen. LOAD lange Tipparbeiten verloren, weil 
ERRORS gehören danach der Ver- der Rechner auf keine Eingaben 
gangenheit an. mehr reagiert und ausgeschaltet 
— — werden muß. Beim Robcom Mo- 
ROBCOM MASCHINENSPRACHE _dul betätigen Sie den Reset Taster, 
MONITOR anschließend tippen Sie MON ein, 
00717 und können weiter programmieren. 
Die hier vorhandenen Funktionen Enthalten sind die Standardbefehle 
ermöglichen Ihnen Programme in wie Assemble, Disassemble, Spei- 


10 FRINT"£CLR} {DOWN} {RIGHT} ZUFF {LEFT} CHOME}" 

20 FRINT"£F13 {F3} {FS} {F7y" 

30 FRINT"{FZ} {F4} {Fö} {FB}" 

40 FRINT"{ELKEF ZWHT} {RED} {CYN} {FÜR} 
iC=5 


> £GRN} {BLU} {YEL}" 


SO FRINT"£C=L} 1C=2} {C0=2} {0=4} £ * {0=d6} 10=7} 0=8}" 


&0 FRINT"{RVSF ZDFF7 


READY. 


Assembler zu schreiben, zu testen chern und Laden von Maschinen- 


und anzupassen. Beim Schreiben programmen usw. Erwähnenswert 
von Programmen in Maschinen- ist der WAL Modus. Er ermöglicht 
sprache „gelingt“ es auch den be- ein Maschinenspracheprogramm 
sten Programmierern immer wie- in drei verschiedenen Geschwindig- 


der, den Rechner zum Totalabsturz keiten ablaufen zu lassen und die 


— m ———————————— een 
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TEST 


Registerinhalte zu sehen. Interes- 
sant ist ein Befehl zum besonders 
raschen Auffinden von Texten in 
Programmen. Sie können automa- 
tisch Hex-Zahlen addieren oder 
subtrahieren sowie Werte in die 
verschiedenen Zahlensysteme um- 
rechnen lassen. Kommandos zum 
Begrenzen des BASIC Speicherbe- 
reichs, zum Umgang mit der Dis- 
kettenstation und zur Druckeraus- 
gabe runden das Befehlsangebot ab. 


KOPIER-KOMMANDOS 


Das Modul bietet Ihnen ein kom- 
fortables Filecopy-Programm. Sie 
können im Turbotempo von Disk 
nach Disk, von Kassette nach Kas- 
sette, aber auch von Kassette 

nach Disk und umgekehrt kopieren. 
Das Programm unterstützt auch den 


Einsatz von zwei Floppylaufwerken. 


DRUCKER-KOMMANDOS 


Ohne Kauf eines zusätzlichen Inter- 
face’ können Sie Drucker mit Cen- 
tronicseingang wie z.B. Epson oder 
Star mit einem einfachen Kabel am 
Userport anschließen. Die Code- 
wandlung von Commodore-ASCH 
zu Standard-ASCII wird korrekt 
durchgeführt. Auf Wunsch werden 
alle Commodore Spezialzeichen 
wie Cursorsteuerung, Farbzeichen, 
Funktionstasten usw., die in einem 
Programmlisting vorkommen, in 
verständlichen Klartext umgesetzt. 
Diese Option kann auch am seriel- 
len Port mit einem Commodore 
Drucker genutzt werden. 


FAZIT 


Die in das Modul integrierte Bau- 
steine erleichtern und beschleuni- 
gen das Schreiben von BASIC und 
Assembler Programmen sowie den 
Umgang mit Floppy und Rekorder. 
Die Befehle stehen ohne weiteren 
Ladevorgang nach dem Einschalten 
sofort zur Verfügung. Ein Inter- 
face zum Anschluß eines Druckers 
mit Centronicseingang kostet in 
der Regel ca. DM 200,— . Das Rob- 
com Turbotool Modul mit seinen 
zahlreichen zusätzlichen Funk- 
tionen, beigelegter Referenzkasset- 
te sowie deutschsprachigem Hand- 
buch ist bereits für DM 159, — 
erhältlich. (et, js) 


TIPS & TRICKS 


Tips 


& 
Tricks 


VC-20 und C-64 

Listschutz: Der beste Listschutz, der ohne 
POKE’S auskommt, ist: 

10 REM’ (DEL) (RVSON) (SHIFT) M 
(SHIFT) S’’ (SHIFT) L 

Der Bildschirm wird gelöscht und ein SYN- 
TAX ERROR erzeugt. Mit Verlangsamung 
des Listens (POKE 37877,0:LIST) kann ein 
schlauer Programmierer jedoch die Zeilen- 


Eingabe mit allen Zeichen (auch ''/'' und 
",'"), Beispiel für A $ VC-20: SYS 50528 VD- 
64: SYS 50528 + 8192 

A$ HN 

FOR I= 512 TO 600: IF PEEK (I) THEN A$ = 
A$ + CHR$ (PEEK(N)): NEXT I 
INT-Rundung 

INT (0.710) ist 6 also falsch! 

Aber 

INT (0.7%10+0) ist 7, richtig 

Kopieren des Kassetten-Puffers: 
(manche Programme lassen sich nur so 
kopieren) 

A$ _'r 

FOR I= 833 TO 1020 : A$=A$ + CHR$ 
(PEEK(D): NEXT I 

SAVE (A$) 

Aus Hochkammer-Modus mit: 

SHIFT + RETURN entkommen 

Löschen des Programm-Speichers 

(mit Nullen füllen) 

POKE 45, PEEK (43) : POKE 46, PEEK (44) 
CLR:DIM X (FRE(0)/5-10): NEW 


nummer ermitteln und dann löschen. 

Um dies zu verhindern, kann man Zeilen 
erzeugen, deren Zeilennummer größer als 
63999 sind (können nicht mehr gelöscht 
werden). Leider dürfen nach so einer Zei- 
lennummer keine Zeilen mehr sein, die 
angesprungen werden. So eignet sich die 
Methode besonders, um DATA’S am Pro- 
grammende zu schützen. 

Erzeugen der hohen Zeilennummer: 

(im Direkt-Modus!) 

1.X=PEEK (43) + PEEK (44) x 256 (Basic- 
Anfang) 

2. Z= gesuchte Zeilennummer 

3. FORL=0 TO 1STEPO:IFPEEK(X+2) + 
PEEK (X+3) X 256 

(Z THEN X = PEEK (X) + PEEK (X+1)%* 
256 : NEXT 

(Adresse X von Zeilenanfang suchen) 

4. POKE X+3,255 (Zeilennummer verän- 
dern) 


Programm-Absturz: POKE 778, 

Ein versteckter Absturz: Es werden keine 
Zahl-Ausdrücke mehr verarbeitet (SYS, 
POKE), aber CLR, LIST usw. 

Nur Reset hilft. 

Nur VC-20 

Simulieren der Grundversion mit Spei- 
chererweiterung: 

POKE (642, 16:POKE 644,30:POKE 
648,30:SYS 64824 

Entkommen aus einem INPUT-Befehl 
(ohne Schirm zu löschen): 

Commodore + RUN/STOP 

Modul starten (Reset): SYS 64802 

Modul abschalten: SYS 64824 
Basic-Joystick-Abfrage: 

POKE 37151,127:J5=(NOT((PEEK 
(37152)AND128)/8+(PEEK 
(37151)AND60)/4))-+32 

POKE 37154,255 

Roger Zühlsdorf 
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TEST 


Wer hat nicht schon des öfteren 


über seinen Joystick geflucht, wenn 
dieser in einem Spiel die Figur 
genau dorthin lenkte, wo sie garan- 
tiert nicht hingehört? Wir nahmen 
die gebräuchlichsten Modelle 
unter die Lupe: 


ATARI JOYSTICK 


Der alte Herr unter unseren Testge- 
räten machte im Vergleich gar keine 
schlechte Figur. Die Schwergängig- 
keit ist zwar symptomatisch für die 
Joysticks seiner Generation, jedoch 


aus überzeugen. In einem Labyrinth- 
spiel, in dem es auf äußerst exakte 
Lenkung ankam, um die Figur durch 
die verschiedenen Stufen zu scheu- 
chen, wäre der Atari fast einer der 
besten geworden. Fast deshalb, weil 
er auf Dauer zu schmerzhaften 
Handverrenkungen führte, da er in 


konnte er in punkto Präzision durch- jede Richtung buchstäblich gezwun- 


1. Die Kontrahenten: 
— Atari Joystick 
— Dynamics Competition 
Pro 3000 und 5000 
- Spectravideo Quickshot 
I und II 
Sony JS 55 


2. Die Bewertung: 

Sämtliche Modelle wurden nach 

den gleichen Kriterien beurteilt: 
Handlichkeit 
Ergonomie 

- Ansprechverhalten 
Präzision 
Tischlage 

- Dauerleistung 

Aktionstaste 
Stabilität 


gen werden muß. Diese Schwergän- 
gigkeit ist eine Folge der steinzeit- 
lich anmutenden Steuerweise: Der 
Hebel drückt über eine runde Pla- 
stikscheibe auf Folienkarte, wie sie 
beispielsweise in den gleichnamigen 
Tastaturen in Mini-Mini Computern 
von Sinclair und Co. gebräuchlich 
sind/waren. Dadurch ergibt sich al- 
lerdings ein Vorteil: Der Atari er- 
scheint aufgrund seiner Konstruk- 
tionsweise schier unverwüstlich. 
Das beweist auch das gleiche Modell, 
welches schon seit Jahren durch 
die Redaktion krebst. 


DYNAMICS COMPETITION 
PRO 3000 +5000 


Dieser Joystick ist für größere An- 
sprüche gedacht. Durch seinen kur- 
zen Hebel mit einem dickel Knubbel 
obendrauf suggeriert er dem Benut- 
zer, an einem Spielhallen-Knüppel 
zu sitzen. Die zwei riesigen Aktions- 
tasten lassen auch die dicksten Fin- 
ger nicht danebendrücken und run- 
den das gefällige Design ab. An dem 
stabilen Kunststoffgehäuse und der 
Elektrik gibt nichts zu der Vermu- 
tung Anlaß, dieser Apparat wäre 
kleinzukriegen. Die Steuerung er- 
folgt über flexible Stahlkontaktstrei- 
fen, welche durch den Hebel auf- 
einander gedrückt werden. Mit dem 
gleichen Prinzip arbeitet auch die 
Aktionstastensteuerung. 
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TEST 


Daß er dem Pro 3000 äußerlich 
gleicht wie ein Ei dem anderen, ob- 
wohl doch einiges mehr für den 
5000’er gezahlt werden muß, wird 
‚nur die Snobs unter den Anwen- 

dern stören. Die anderen wissen um 
die inneren Werte und genießen 
schweigend. Denn was der Compe- 


Competition Pro 5000 


tition Pro 5000 so schamhaft ver- 
birgt, macht ihn zum absoluten 
„Superknüppel“: In seinem Inneren 
befinden sich vier Mikroschalter, 

die mit einem leisen Klicken den her- 
gestellten Kontakt vermelden. Dies 
hat erstens zur Folge, daß sich auch 
die präzisesten Steuerbewegungen 
problemlos durchführen lassen und 
zweitens das Gehäuse lockerst in der 
Hand gehalten werden kann, da es 
sich erübrigt, nach dem Motto 
„Sicher ist Sicher‘ mit Vehemenz 

in die jeweilige Richtung zu drücken. 
So erlaubt der Pro 5000 Spieldauer, 
solange Augen und Nerven mit- 
halten. 


SPECTRAVICDEO QUICKSHOT I 


Hierbei handelt es sich um ein belie- 
biges Modell, welches zumeist sehr 
günstig angeboten wird. 

Handlich zu nennen ist diese Riesen- 
hebelei nicht gerade. Das macht der 
Quickshot allerdings gleich wieder 
durch seine Gestaltung wett: Der 
Griff liegt gut in der Hand, optimal 
ist die Aktionstastenanordnung, die- 
se liegen auf der linken vorderen 
Ecke und direkt auf dem Steuer- 
hebel. Das Dirigieren der jeweiligen 
Spielfigur geschieht äußerst leicht- 
gängig, mittels einer zentralen Fe- 
der, welche auf eine Kontaktplatte 
drückt, woraufhin diese wiederum 
die Richtungskontakte betätigt. 
Wird der Quickshot in der vorge- 
sehenen Art und Weise benützt, 
nämlich mit den vier Saugnäpfen 
auf der Tischplatte festzementiert 
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(dieser Ausdruck resultiert aus der 
immensen Anhänglichkeit eben die- 
ser Saugnäpfe mit dem jeweiligen 
Untergrund), bedarf es schon eini- 
ger Spielhallenerfahrung seitens des 
Anwenders. Denn die Kontakte 
sprechen so schnell und unbemerkt 
an, daß unweigerlich ungeplante 
Richtungsänderungen die Folge zu 
nervösen Umgangs mit dem Hebel 
sind. Wer mit diesem Manko nicht 
zurechtkommt, kann den Apparat 
getrost in die Hand nehmen, durch 
die bereits erwähnte Leichtgängig- 
keit kommen keine Handkrämpfe 
auf. Wieweit es mit der Haltbarkeit 
dieses Modelles bestellt ist, ließ 
sich kaum feststellen, zu denken 
gibt hier allerdings ein etwas älte- 
res Exemplar aus dem Redaktions- 
inventar, welches sich schon deut- 
lich ausgeleierter gibt. 


SPECTRAVIDEO QUICKSHOT II 


Grundsätzlich läßt sich über den 
großen Bruder des Quickshot I 
nicht mehr sagen als über das vor- 
herige Exemplar. Der einzige Unter- 
schied liegt in der äußeren Form 
und einer arretierbaren Aktionstaste. 
Durch die aufwendigere Gestaltung 
geriet der Qick II zu einem unge- 


Spectra Quickshot 


heuer beeindruckenden Instrument. 
Der Hebel wurde stärker profiliert, 
die vergrößerten Aktionstasten lie- 
gen nun direkt unter und auf der 
Hebelspitze. Beide sind unabhängig 
voneinander zu sperren, so daß bei 
Schießübungen jedweder Art die 
Konzentration auf die Lenkung be- 
schränkt werden kann. 


SONY JS 55 


Durch seine ungewöhnliche Funk- 
tionsweise geriet der Sony zu einem 
gewöhnungsbedürftigen Instrument: 
Eine rechteckige Platte auf dem fe- 
sten Hebelstummel dient als Steue- 


rungseinheit. Sie wird um ihre Be- 
festigung herum bewegt, während 
die Bedienerhand auf ihr liegt. 

Alles klar? An der Bedienungsplatte 
liegen seitlich zwei Aktionstasten. 
Hier muß Sony ein großes Lob aus- 
gesprochen werden, denn endlich 
einmal wurde an die Linkshänder 
unter den Joystickusern gedacht: 
Mittels eines Schalters an der Seite 
kann zwischen der rechten und der 
linken Taste gewählt werden. 

Der JS liegt sehr gut in der Hand 
und kann wahlweise auf den Tisch 
gestellt oder gehalten werden. Er 
ist recht zierlich, ließ jedoch keiner- 
lei Nachteile in punkte Stabilität 


Sony JS 55 

erkennen. Lediglich an der Aufhän- 
gung der Steuereinheit auf dem 
Hebel waren nach einem Monat 
deutliche Abriebspuren zu erken- 
nen. Mit der Steuerung selbst ver- 
hält es sich etwas eigenartig: Für 
Spiele, in denen weiträumige Lenk- 
arbeit erledigt werden muß, wie 
z.B. Autorennen, ist der Sony wie 
geschaffen. Sollen jedoch präzise 
Anweisungen durchgeführt werden, 
ist schon eine gehörige Portion 
Fingerspitzengefühl und Gewöh- 
nung vonnöten. Der Steuerkopf 

ist dermaßen leichtgängig aufge- 
hängt, daß ungewollte Lenkmanö- 
ver sich häufen. 


Endwertung: 
Eindeutiger ‚Sieger‘ ist wohl der 
Competition Pro 5000, welcher in 
jeder Hinsicht überzeugen konnte 
und wirklich nichts zu wünschen 
übrig läßt. Es muß nun jeder selbst 
entscheiden, welcher Hebel seinen 
Ansprüchen entspricht, denn für 
bloße Ballerspiele genügt auch das 
billigste Modell aus dem nächsten 
Kaufhaus. Wer jedoch oft auf an- 
spruchsvolleres Spielmaterial zurück- 
greift, der sollte sich ruhig den 
Pro 5000 leisten. 

Torsten Seibt 


PS: Sollten Sie den Commodore- 
Knüppel vermissen: Er ist bis auf 
die Feuertaste mit dem Atari 
identisch. 


DATEN - ZAHLEN 


Micro- Z80A 

Prozessor 

Taktfrequenz 4 Mhz 
Speicher--RAM 128K-Byte RAM 
davon für Basic K-Byte RAM 
mit Assembler bis K-Byte RAM 


erweiterbar bis 


512K-Byte 


Interpreter 
Betriebssystem 


Basic V 3.0 
K-Byte ROM 


Programmier- 
sprache 


CP/M plus 
Operating System 
Version 3.0 


Sprachen- 
Erweiterungen 


Toolkits: 


k.A 


k. A. 


Zeichenauflösung 


40 Spalten X 

25 Zeilen 
umschaltbar auf 
80 Spalten X 

25 Zeilen 


Farben 


Grafik 


16 Grundfarben 


Groß- und Klein- 
Buchstaben und 
Grafiksymbole 


Hochauflösende 
Grafik 


320x200 = 
64000 Punkte 
oder 

640x200 = 
128000 Punkte 


Tastatur 


Qwerty Schreibma- 
schinentastatur mit 
64 Standard- 
ASCI- 

Zeichen und 

62 Grafik-Zeichen, 
4 Funktionstasten 
mit 8er-Belegung, 
4 Tasten für die 
Cursorsteuerung, 
8 Tasten für die 
Hilfsfunktionen, 
14 Tasten (Block) 
für Zahleneingabe 


Bildschirm 


Ton 
Musiksynthesiser 


wie 64 
k. A. 


Massenspeicher 


Datasette-Recorder 
VC-1530 oder andere 
Kassenttenrecorder 
mit Interface, 
Floppy 1541 

mit a 170K-Byte auf 


FAKTEN 


COMMODORE 128 
PERSONAL COMPUTER 
IM CP/M MODE 


5%" Disketten 
Floppy 1571 

mit a 410K-Byte auf 
5%" Disketten 


Schnittstellen 


RS232C (V24) mit 


TTL-Pegeln/Userport 


sbit parallel frei- 

programmierbar/ 
IEEE Bus seriell 
Kassettenport für 
Datasette/Expan- 
sionsport für Er- 
weiterungs- und 


Programmmodule/ 


Interface, gesamte 
höherwertige Peri- 
der Commodore Serie 
4XXX und 8XXX. 
Centronics Drucker 
mit Interface oder 
über Userport mit 
Treiber-Software, 
Diskettenlaufwerke 
VC-4040 od. VC-2031 


Eingebaute 
Software 


sprac he monitor, 


Optional nur über 
Eprom-Steckmodule 
z. B. Maschinen- 


Peripherie 


Audio-, Videoport 
für Monitor und TV- 
Anschlußport/ 

Zwei Anschlüsse für 
Lichtgriffel, 
Joystick, Paddles 
oder Maus 


Direkt anschließbar 
Matrixdrucker VC- 
1525, MPS 801/802 
VC-1526 od. Plotter 
VC 1520, Disketten- 
laufwerk VC-154] 
über ein IEEE 488- 


Grafik und Editier- 


Erweiterungen 
Gewicht 
Betriebsdaten 220 Volt 
Netzspannung 
Kommentar 
Preis ca. 800 DM 
Hersteller Commodore USA 
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Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116/Plus 4? Oder einen 128? Können 
Sie programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion ‚sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette selbstverständlich zurück, 
wenn Sie einen ausreichend frankierten Rückum- 
schlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzten Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”” Programme ziemlich schnell 
erkennt ). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


PROGRAMMANGEBOT 


Name des Einsenders: 
Straße/Hausnr./Tel.: 
Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ()Listings () Kassette () Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken. Sollte es in den Kassetten-Service aufge- 
nommen werden, erhalte ich auch dafür eine entsprechende Vergütung. 


Rechtsverbindliche Unterschrift 


CW/CBM 
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Postfach 1107 
8044 Lohhof 


